File Manager
Back to List
|
Up to Parent Directory
| Current Directory: ~/59th
Editing: 59th/showdetail.asp
Full path: C:\ict\ICT\59th\showdetail.asp
Permissions: rwx
Write test: File appears not directly writable
Current process identity: IIS APPPOOL\DefaultAppPool
<link href="../Templates/style.css" rel="stylesheet" type="text/css"> [<a href="http://bsris.swu.ac.th/58th/index.html">˹���á</a>] <!--#INCLUDE FILE="Connectdb.asp"--> <% name=session("name") sname=session("sname") id_regis=session("id_regis") tr1=session("tr") 'response.write id_regis if name="" and sname="" or id_regis = "" then name=request("name") sname=request("sname") id_regis=request("id_regis") end if set ors=server.createobject("adodb.recordset") sql="select * from regis where id_regis="&id_regis&"" 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")&"</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>" ' if tr1="1" then 'response.write "<tr bgcolor=#F9F9F7><td ><strong>���ͺ�����</strong><td colspan=2>"&ors("filename") ' end if response.write "<tr bgcolor=#F9F9F7><td colspan=3>****����캷�������� <a href=http://www.tci-thaijo.org/index.php/JBSD>Link</a> </td></tr>" response.write "<tr bgcolor=#F9F9F7><td colspan=3>Download �����͡���觺���������к� <a href=../journal/manualauthor.pdf>Link</a> </td></tr>" response.write "<tr>" idc=session("id_regis") 'response.write idc 'response.write tr1 'if tr1=1 then 'if idc="" then ' response.write "<tr><td> �����ŁE:<td>"&ors("absn") 'elseif idc="" then ' else ' <form action="upfile.asp?id=<%=id_regis" method="post" enctype="multipart/form-data"> ' <tr><td colspan=2 >File: </b><input type="file" name="file1"><input type="submit" value="Upload" name="submit">�Ѻ�� .pdf ' </form> %> <% ' end if 'end if 'response.write "<tr bgcolor=#F9F9F7><td><strong>��ͤ������ҡ</strong><td>"&ors("mess") 'set ors1=server.createobject("adodb.recordset") 'sql1="select * from regis where id_regis="&ors("id_regis")&" order by id_regis" 'ors1.open sql1,conn,1,3 ' ors1.movefirst ' price=0 ' if not ors1.eof then ' do while not ors1.eof ' set ors2=server.createobject("adodb.recordset") ' sql2="select * from type_stat where id_type="&ors1("stat")&"" ' ors2.open sql2,conn,1,3 ' if not ors2.eof then ' response.write "<tr bgcolor=#EDEDEB><td><td >"&ors2("type_name")&"- "&ors2("pricee")&"</tr>" 'end if 'pr=ors2("pricee") 'price=price+pr 'ors1.movenext ' loop ' response.write "<tr><td colspan=2><strong>��������㹡��ͺ�� "&price&" �ҷ</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 "</table>" response.write "<br><div align=right>�����Ѥ�ŧ��� ..............................................................................." response.write "<br><br>(..........................................................................)" end if 'end if %>