File Manager

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">
<style>

</style>
<SCRIPT language=JavaScript>
var rate = 20; // Increase amount(The degree of the transmutation)
var obj; // The object which event occured in
var act = 0; // Flag during the action
var elmH = 0; // Hue
var elmS = 128; // Saturation
var elmV = 255; // Value
var clrOrg; // A color before the change
var TimerID; // Timer ID
if (navigator.appName.indexOf("Microsoft",0) != -1 && parseInt(navigator.appVersion) >= 4) {
Browser = true;
} else {
Browser = false;
}
if (Browser) {
document.onmouseover = doRainbowAnchor;
document.onmouseout = stopRainbowAnchor;
}
function doRainbow()
{
if (Browser && act != 1) {
act = 1;
obj = event.srcElement;
clrOrg = obj.style.color;
TimerID = setInterval("ChangeColor()",100);
}
}
function stopRainbow()
{
if (Browser && act != 0) {
obj.style.color = clrOrg;
clearInterval(TimerID);
act = 0;
}
}
function doRainbowAnchor()
{
if (Browser && act != 1) {
obj = event.srcElement;
while (obj.tagName != 'A' && obj.tagName != 'BODY') {
obj = obj.parentElement;
if (obj.tagName == 'A' || obj.tagName == 'BODY')
break;
}
if (obj.tagName == 'A' && obj.href != '') {
act = 1;
clrOrg = obj.style.color;
TimerID = setInterval("ChangeColor()",100);
}
}
}
function stopRainbowAnchor()
{
if (Browser && act != 0) {
if (obj.tagName == 'A') {
obj.style.color = clrOrg;
clearInterval(TimerID);
act = 0;
}
}
}
function ChangeColor()
{
obj.style.color = makeColor();
}
function makeColor()
{
if (elmS == 0) {
elmR = elmV; elmG = elmV; elmB = elmV;
}
else {
t1 = elmV;
t2 = (255 - elmS) * elmV / 255;
t3 = elmH % 60;
t3 = (t1 - t2) * t3 / 60;
if (elmH < 60) {
elmR = t1; elmB = t2; elmG = t2 + t3;
}
else if (elmH < 120) {
elmG = t1; elmB = t2; elmR = t1 - t3;
}
else if (elmH < 180) {
elmG = t1; elmR = t2; elmB = t2 + t3;
}
else if (elmH < 240) {
elmB = t1; elmR = t2; elmG = t1 - t3;
}
else if (elmH < 300) {
elmB = t1; elmG = t2; elmR = t2 + t3;
}
else if (elmH < 360) {
elmR = t1; elmG = t2; elmB = t1 - t3;
}
else {
elmR = 0; elmG = 0; elmB = 0;
}
}
elmR = Math.floor(elmR);
elmG = Math.floor(elmG);
elmB = Math.floor(elmB);
clrRGB = '#' + elmR.toString(16) + elmG.toString(16) + elmB.toString(16);
elmH = elmH + rate;
if (elmH >= 360)
elmH = 0;
return clrRGB;
}
</SCRIPT>
<title>::BSRI::</title>
<meta name="keywords" content="�Ԩ�¾ĵԡ�����ʵ��, �Ԩ��, �ĵԡ���, �ĵԡ�����ʵ��, �Ԩ�¾ĵԡ���, ��, ��ͺ����, �������´, �����ԡĵ, ���ö��, �դ��, EQ, Behavioral science research institute, research, behavioral, behavior, Research, Behavioral, Behavior, Behavior Science">
<meta name="description" content="ʶҺѹ�Ԩ�¾ĵԡ�����ʵ�� ��� ��觷��Ԩ�� ��м�Ե�ѳ�Ե���͹�����س�Ҿ���Ե�ͧ����">
 
<title>ʶҺѹ�Ԩ�¾ĵԡ�����ʵ��</title>
 
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">
  
<style type="text/css">

</style>
<SCRIPT language=JavaScript>
function clearsearch() {
        document.form2.username1.value = '';
}
function clearsearch1() {
     document.form2.password1.value = '';
}
function clearsearch2() {
     document.form1.q.value = '';
}
</SCRIPT>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<script>

</script>
<div align="center">
  <table width="90%" border="0" cellspacing="0" cellpadding="0">
    <tr> 
      <td width="138" valign="top" background="image/menu.jpg"><img src="image/h1.jpg" width="138" height="171"> 
        <table height="230" border="0" cellpadding="0" cellspacing="0" background="image/menu3.jpg" widt="100%">
          <tr> 
            <td width="134" height="21" background="image/menu3.jpg"><a href="aboutus.htm" ><font color="#FFFFFF">����ǡѺʶҺѹ</font></a></td>
          </tr>
          <tr> 
            <td height="20" background="image/menu3.jpg"><a href="curriculum.htm" ><font color="#FFFFFF">��ѡ�ٵ�</font></a></td>
          </tr>
          <tr> 
            <td height="20" background="image/menu3.jpg"><a href="research.htm" ><font color="#FFFFFF">�ҹ�Ԩ��</font></a></td>
          </tr>
          <tr> 
            <td height="20" background="image/menu3.jpg" bgcolor="#FFFFCC"><a href="edu_service.htm" ><font color="#FFFFFF">�ҹ��ԡ���Ԫҡ��</font></a></td>
          </tr>
          <tr> 
            <td height="22" background="image/menu3.jpg"><a href="learn.htm" ><font color="#FFFFFF">������¹����͹</font></a></td>
          </tr>
          <tr> 
            <td height="20" background="image/menu3.jpg"><a href="staff_index.htm" ><font color="#FFFFFF">�ؤ�ҡ�</font></a></td>
          </tr>
          <tr> 
            <td height="22" background="image/menu3.jpg"><font color="#FFFFFF">Link 
              ���</font></td>
          </tr>
          <tr> 
            <td height="41" background="image/menu3.jpg"><a href="http://www.navy.mi.th/civil/website/mainpage.html" target="_parent"><font color="#FFFFFF">�������ѧ����ʵ��<br>
              �ԧ�ĵԡ���</font></a> </td>
          </tr>
          <tr> 
            <td height="22" background="image/menu3.jpg"><a href="http://bsris.swu.ac.th">ICT 
              ʶҺѹ(Demo)</a></td>
          </tr>
          <tr>
            <td height="22" background="image/menu3.jpg"><a href="http://bsris.swu.ac.th/webboard/indexwebboard.asp">��з���Ԩ��㹪�����¹</a></td>
          </tr>
        </table>
        <br> <form name="form2" method="post" action="index_member.asp">
          <table width="91%" border="0" cellspacing="1" cellpadding="0">
            <tr> 
              <td height="22"><div align="center"><font color="#000000"><strong>..:: 
                  ��Ҫԡ ::..</strong></font></div></td>
            </tr>
            <tr> 
              <td><input  onclick=clearsearch(); name="username1" type="text" value="username" size="18" maxlength="255" ></td>
            </tr>
            <tr> 
              <td> <input  onclick=clearsearch1(); name="password1" type="password" value="password" size="18" maxlength="255"> 
              </td>
            </tr>
            <tr> 
              <td><input type="submit" name="Submit" value="Submit"> <font color="#FFFFCC">&nbsp; 
                </font></td>
            </tr>
            <tr> 
              <td><font color="#FFFFCC"><strong><a href="Templates/register.htm">��Ѥ���Ҫԡ</a></strong></font></td>
            </tr>
          </table>
        </form>
        <table width="83%" border="0" cellpadding="0" cellspacing="0">
          <tr> 
            <td><div align="left"> <a href="http://www.yimsiam.com/board/v70/index.asp?wbID=bsri_swu"><font color="#FFFFCC">��纺�����������</font></a></div></td>
          </tr>
          <tr> 
            <td><a href="http://admission.swu.ac.th/content/index_th.html"><font color="#FFFFCC">�ҹ�Ѻ���Ե����</font></a></td>
          </tr>
          <tr> 
            <td><a href="http://lib.swu.ac.th/"><font color="#FFFFCC">��ͧ��ش</font></a></td>
          </tr>
          <tr> 
            <td height="16"><a href="http://grad.swu.ac.th/"><font color="#FFFFCC">�ѳ�Ե�Է�����</font></a></td>
          </tr>
          <tr> 
            <td><a href="http://cc.swu.ac.th/content/index_th.html"><font color="#FFFF99">�ӹѡ����������</font></a></td>
          </tr>
          <tr> 
            <td><a href="http://ransys.swu.ac.th"><font color="#FFFFCC">�к����ʹ�ȡ���Ԩ��</font></a></td>
          </tr>
          <tr> 
            <td><a href="http://supreme.swu.ac.th/register/index.php"><font color="#FFFFCC">Supreme</font></a></td>
          </tr>
          <tr>
            <td>&nbsp;</td>
          </tr>
        </table>
        <br> <br> </td>
      <td colspan="2" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr background="image/h6.jpg"> 
            <td width="800" background="image/h6.jpg"><img src="image/h2.gif" width="624" height="76" ></td>
          </tr>
          <tr > 
            <td height="28" background="image/h7.jpg"><div align="right"><a href="http://bsri.swu.ac.th"  ><font color="#FFFFFF" face="MS Sans Serif, Tahoma, sans-serif">˹���á</font></a><font face="MS Sans Serif, Tahoma, sans-serif"> 
                | <a href="http://www.swu.ac.th" target="_blank"><font color="#FFFFFF">SWU</font></a> 
                | <a href="http://mail.swu.ac.th"><font color="#FFFFFF">E-mail</font></a> 
                | <a href="http://bsris.swu.ac.th/journal/index.html" ><font color="#FFFFFF"><img src="image/Icon/icon_new.gif" width="25" height="7" border="0">E-Journal</font></a> 
                | <a href="news_letter.htm" ><font color="#FFFFFF">�����¢���</font></a> 
                | <a href="Templates/book.htm" ><font color="#FFFFFF">��ª���˹ѧ���</font></a> 
                | <a href="http://webboard.swu.ac.th/?c=5200" target="_blank"><font color="#FFFFFF">��дҹ����</font></a> 
                | <a href="contact.htm" ><font color="#FFFFFF">�Դ���</font></a> 
                | <font color="#FFFFFF"><a href="http://bsri.swu.ac.th/index_eng.html">English</a> </font></font></div></td>
          </tr>
        </table>
        <br> <table width="100%" border="0" cellpadding="0" cellspacing="1">
          <tr> 
            <td>

<h3>��������´���ŧ����¹</h3>
              <%
name=session("name")
sname=session("sname")
id_regis=session("id_regis")
'response.write id_regis
if name="" and sname="" then
name=request("name")
sname=request("sname")

end if
set ors=server.createobject("adodb.recordset")
		  sql="select * from statregis where name="&name&""
		  ors.open sql,conn,1,3
		 if not ors.eof then '����
		 response.write "<table><tr><td width=16% bgcolor=#EDEDEB><strong>���� / ʡ��</strong> <td  bgcolor=#EDEDEB>"&ors("fname")&""&ors("name")&"   "&ors("sname")&"[<a href=edit.asp?id_regis="&ors("id_regis")&">Edit</a>]  </tr>"
		 
		 response.write "<tr bgcolor=#F9F9F7><td><strong>���˹�  </strong><td>"&ors("position1")&"</tr>"
		 response.write "<tr bgcolor=#EDEDEB><td><strong>�ѧ�Ѵ </strong><td>"&ors("addwork")&"</tr>"
		 response.write "<tr bgcolor=#F9F9F7><td><strong>�������  </strong><td>"&ors("address")&"</tr>"
		 response.write "<tr bgcolor=#EDEDEB><td><strong>�������Ѿ��  </strong><td>"&ors("tel")&"</tr>"
		 response.write "<tr bgcolor=#F9F9F7><td><strong>����� </strong><td> "&ors("fax")&"</tr>"
		 response.write "<tr bgcolor=#EDEDEB><td><strong>E-mail </strong> <td>"&ors("email")&"</tr>"
response.write "<tr bgcolor=#F9F9F7> "
     response.write "<td colspan=2><strong>�դ������ʧ�����Ѥ�����Ѻ���ͺ���ԧ��Ժѵԡ��</strong></td>  </tr>"
  response.write "<tr bgcolor=#EDEDEB>"
                 response.write "<td height=175 colspan=2> <p>���ŧ����¹��Ф�������㹡��ͺ��</p><p>1. ���ŧ����¹��ҹ�� 8,700.- �ҷ (����������ͧ���� �������ҧ ��Ф���͡���)<br> 2. ���������Ҥʹ�������ҧ�ѹ��� <span dir=LTR>17-20 �ѹ�Ҥ� 2550 ��ҹ�� 2,200.-  �ҷ (�������Թ�ҧ ��ҷ��ѡ��Ф��������ѹ�� 3 ���͠ 㹪�ǧ�Ҥʹ�� 4 �ѹ) </span> </p>                   <p><strong>��������� �2 ��¡�����Թ 10,900 �ҷ</strong> <br>������ͺ�����Է����ԡ���ŧ����¹  �����������§ ��ҷ��ѡ ��Ф���������� �  �ҡ���ѧ�Ѵ��������º��з�ǧ��ä�ѧ  ����Ѻ����Ҫ�������ö����Ѻ���ͺ��������������ѹ�Ҡ ��������Ѻ͹��ѵԨҡ���ѧ�Ѻ�ѭ�� </p><p>****<strong>������Ѻ��������͹�Թ���� �س�ؾ�ó�                         ˹��ѡ�� �Դ����ͺ��� ��.02-2584482 �����.02-2620809  </strong></p></td></tr>	"
                      
    	
		 
		 'set ors1=server.createobject("adodb.recordset")
		  'sql1="select * from regis where id_regis='"&ors("id_regis")&"' "
		  'ors1.open sql1,conn,1,3
		  'if not ors1.eof then
			'	set ors2=server.createobject("adodb.recordset")
			'	sql2="select * from type_state where id_type='"&ors1("stat")&"'"
			'	ors2.open sql2,conn,1,3
			'	if not ors2.eof then
		 'response.write  "<tr bgcolor=#EDEDEB><td><td >"&ors1("type_name")&"- "&ors1("pricee")&"</tr>"
		'end if
		 		 'response.write  "<tr><td colspan=2><strong>????????????????????????? 1,100 ???</strong></tr>"
		 response.write "<tr bgcolor=#F9F9F7><td ><strong>��������´��ê����Թ</strong></tr>"
		 		 set ors2=server.createobject("adodb.recordset")
		  sql2="select * from pay where id_pay='"&ors("pay")&"' "
		  ors2.open sql2,conn,1,3
		response.write "<tr bgcolor=#EDEDEB><td><td >"&ors2("pay")&" "&ors2("pay_detail")&"</tr>"
				 response.write "<tr bgcolor=#F9F9F7><td><strong>��ͤ������ҡ</strong><td>"&ors("mess")&"</tr>"

'response.write "<tr><td colspan=2>"&ors("pay")&"</tr>"
		 response.write "</table>"
		 response.write  "<br><div align=right>ŧ���ͼ����Ѥ� ..............................................................................."
		 response.write  "<br><br>(..........................................................................)"
		 end if
		 'end if
%>
 
              </td>
          </tr>
        </table></td>
    </tr>
    <tr > 
      <td  background="image/bottomedge.jpg"> 
        <%
'========================��С�ȵ���÷�����====================
Dim strFilePath
Dim strObjFile
Dim strObjStream
Dim strTemp

strFilePath = Server.MapPath("visitors.txt") '��˹����˹觢ͧ������纤�ҵ���Ţ
 Set strObjFile = CreateObject("Scripting.FileSystemObject") '���ҧ Object �����Ѻ Text File
 Set strObjStream= strObjFile.OpenTextFile (strFilePath, 1) '�ӡ���Դ��� visitors.txt ������ҹ���ҧ����
 strTemp = strObjStream.ReadLine+1 '������ʹ Readline ������ҹ������ +������ա 1
 strObjStream.Close '�ӡ�ûԴ���
 Set strObjStream = strObjFile.OpenTextFile (strFilePath, 2) '�ӡ���Դ��� visitors.txt ������¹���ҧ����
strObjStream.WriteLine(strTemp) '��¹��ҷ����ҹ��ҡ����觴�ҹ����Ңͧ strTemp ŧ� visitors.txt
 strObjStream.Close '�ӡ�ûԴ���

%>
        <div align="center">Visitor No:: <%=strTemp %> <br>
          (16 �Զع�¹ 2549)</div></td>
      <td height="52" colspan="2" background="image/bottomedge.jpg" > ʶҺѹ�Ԩ�¾ĵԡ�����ʵ�� 
        ����Է�������չ��Թ�����ò [Behavioral Science Research Institute] <br>
        �آ���Է 23 �ǧ��ͧ���˹�� ࢵ�Ѳ�� ��ا෾ 10110 �� 02-649-5000 ��� 
        7600 ����� 02-649-5182 <A 
                        href="mailto:wassanaw@swu.ac.th">webmaster</A> </td>
    </tr>
  </table>
  
</div>
</body>
</html>

File Manager

Editing: research_q/showdetail.asp.bak