chk.asp

依悠广告管理系统 V1.1 使用帮助 V1.1 更新情况(2008.03.22) ======================= 1.更新图片调用不能显示问题． 2.不能编辑问题

<%
function chkh(stra)
  stra=replace(stra,"<","&lt;")
  stra=replace(stra,">","&gt;")
  stra=replace(stra,"'","")
  stra=replace(stra,"(","（")
  stra=replace(stra,")","）")
  stra=replace(stra,";","；")
  stra=replace(stra,",","，")
  stra=replace(stra,"%","％")
  stra=replace(stra,"+","＋")
  chkh=stra
End function
Session("a_user")=chkh(Request.Cookies("a_user"))
Session("a_pass")=chkh(Request.Cookies("a_pass"))

user = chkh(Request.Cookies("a_user"))
pass = chkh(Request.Cookies("a_pass"))

if user="" or pass="" then
  Response.Redirect "login.asp?id=8"
End if
%>
<!--#include file = "conn.asp" -->
<%
user=chkh(Trim(Session("a_user")))

Set Rs = Server.CreateObject("ADODB.RecordSet")
Rs.Open "select * from [tt_admin] where [a_admin]='"&user&"' and [a_pass]='"&pass&"'",conn,1,1
If Rs.RecordCount  = 0 Then
	Response.Cookies ("a_user")=""
	Response.Cookies ("a_pass")=""
	Rs.close:Set Rs = Nothing
	conn.close:Set conn = Nothing
	Response.Redirect "login.asp?id=8"
End If

Rs.close:Set Rs = Nothing
conn.close:Set conn = Nothing
%>