File Manager

<%@LANGUAGE="VBSCRIPT"%>
<%
Response.CacheControl = "no-cache"
Response.AddHeader "pragma","no-cache"
Response.Expires = -1
%>

<!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>

'////vazza
ipclient=request.servervariables("remote_addr")
response.write ipclient
								'if ipclient<>"" then
pern=session("username")
pern=1
if  pern<>"" then
	id=request("id")
	sql="select * from attachment_res where id_attach='"&id&"'"
	set ors=server.createobject("adodb.recordset")
	ors.open sql,conn,1,3
	if not ors.eof then
	ors.movelast
	hits=ors("hitc")
	if hits="" then
		hits=0
	end if
	hitc=hits+1
	id_contact=ors("id_contact")
		datetimeread=now
		sqla="select * from res_checkread"
		set orsa=server.createobject("adodb.recordset")
		orsa.open sqla,conn,1,3

response.redirect "http://bsris.swu.ac.th/upload/"&ors("file_name")
	end if
									
else
response.write "no ip"
response.redirect ("http://bsri.swu.ac.th")
end if
									'ors.close
									'orsdata.close
									conn.close
'///vazza

%>
</body>
</html>

File Manager

Editing: hitc_research.asp.bak