File Manager

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874" />
<title>��ǹ���Ŵ �ҹ�Ԩ��ʶҺѹ�Ԩ�¾ĵԡ�����ʵ�� (BSRI) Behavioral Science Research Institute</title>
</head>

<body>
<%

'ipclient=request.servervariables("remote_addr")
'response.write ipclient
								'if ipclient<>"" then
			'	 pern=session("username")
			'	 pern=1
				'if  pern<>"" then
								id=request("id_thesis")
							'	sql="select * from abstract where id_thesis='"&id&"'"
							'	set ors=server.createobject("adodb.recordset")
'ors.open sql,conn,1,3
'if not ors.eof then
'ors.movelast
'hits=ors("hitc_absthesis")
												'if hits="" then
												'hits=0
												'end if
'hitc=hits+1
'id_contact=ors("id_contact")
'datetimeread=now
sqla="select * from thesis where id_thesis='"&id&"'"
	 set orsa=server.createobject("adodb.recordset")
	 orsa.open sqla,conn,1,3
response.write sqla
			'	if  not orsa.eof  then
			'	orsa.movelast
				'id_read=orsa("hitc_absthesis")
				'			if id_read="" then
					'		id_read=1
					'		else
					'		 id_read=cint(id_read)+1
					'		end if
				'end if
											'	sqlb="update thesis set hitc_absthesis='"&id_read&"'"
											'	 set orsb = Server.CreateObject("adodb.recordset")
											'	orsb.open sqlb,conn,1,3
											'	 response.write sqlb
												
											'	'usercreate=session("username")
											'	'sqldata="update attachment_res set hitc='"&hitc&"' where id_attach='"&id&"'"
											'	'set orsdata=server.createobject("adodb.recordset")
											'	'orsdata.open sqldata,conn,1,3
											'	'response.write sqldata

response.redirect "http://bsris.swu.ac.th/absthesis/"&orsa("abstract")
								'	end if
									
'else
'response.write "no ip"
'response.redirect ("http://bsri.swu.ac.th")
'end if
									'ors.close
									'orsdata.close
									conn.close
%>
</body>
</html>

File Manager

Editing: hitc_Absthesis.asp.bak