多媒体编程

开发平台：

ASP/ASPX

cookies.asp：源码内容

							<%
if request.cookies("nicedown")("admin")="" then
	Response.Redirect "index.asp"
else
	strCookies=request.cookies("nicedown")("admin")
	strPws=md5(request.cookies("nicedown")("pws"))
	Set rs = Server.CreateObject("ADODB.Recordset")
	sql="SELECT admin.admin,admin.pws,admin.qx FROM admin where admin='"&strCookies&"'"
	rs.OPEN sql, Conn,1,1
	if rs.eof then
		Response.Redirect "index.asp"
	else
		strRscpws=rs("pws")
		strQx=rs("qx")
		if strPws<>strRscpws then
			Response.Redirect "index.asp"
		end if
		set rs4=conn.execute("select * from config where id="&int(strQx))
		if rs4("boolAdmin")=False then
			Response.Redirect "index.asp"
		end if
		conn.execute("update admin set lastIP='"& Request.servervariables("remote_addr") &"',lastTime='"& now() &"' where admin='"& strCookies &"'")
%>

						