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("usernamekm")
				 pern=1
				if  pern<>"" then
								id=request("id")
								sql="select * from km_abs where id_abs_km='"&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="0" then
												hits=0
												end if
hitc=hits+1
id_abs_km=ors("id_abs_km")
datetimecount=now
sqla="select * from km_count"
	 set orsa=server.createobject("adodb.recordset")
	 orsa.open sqla,conn,1,3

if  not orsa.eof  then
				orsa.movelast
				id_km_count=orsa("id_km_count")
				response.write "<br>"&id_km_count
							if id_km_count="" then
							id_km_count=1
							else
							' id_km_count=id_km_count+1
							 'id_km_count=id_km_count+1
							end if
				else
				id_km_count=1
				end if
												'sqlb="insert into km_count(id_km_count,ipcount,datetime_count,id_abs_km)  values ("&id_km_count+1&",'"&ipclient&"','"&datetimecount&"',"&id_abs_km&")"
												' set orsb = Server.CreateObject("adodb.recordset")
												'orsb.open sqlb,conn,1,3
												' response.write sqlb
												
												usercreate=session("usernamekm")
												sqldata="update km_abs set hitc='"&hitc&"' where id_abs_km='"&id&"'"
												set orsdata=server.createobject("adodb.recordset")
												orsdata.open sqldata,conn,1,3
											'	response.write sqldata

response.redirect "http://bsris.swu.ac.th/kmupload/"&ors("abs_file")
									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: km_download.asp