login_check.asp

来自「这是一个用ASP 做的论坛.值得研究一下. 最有趣的是,发帖支持 HTML 代」· ASP 代码 · 共 38 行

<!--#include file="conn.asp"--> 
<%
   loginname=request("login_name")
   loginpass=request("login_pass")
'安全
session("login_name")=loginname
session("login_pass")=loginpass
sapsT=replace(sapsT,"'","*")
sapsT=replace(sapsT,"""","*")
adminSql="select * from luntan_login where login_name='"&loginname&"' and login_pass='"&loginpass&"'  "
set rsT=conn.execute(adminSql)
if not rsT.eof then
    'session("stu_retset")=rst("stu_num")
	'session("stu_retset")=0
	'response.Cookies("stu_num")=rsT("stu_num")
	'response.redirect "ksliucheng.htm"
	 session("check")=1
response.Write("<p>&nbsp;</p><center><img src='img/succ.gif' border='1'></center>")
	 'response.write(rst(3))
	 'rst(3)=1
	  strsql="update luntan_login set indexname=1 where login_name='"&loginname&"'"   
      set rst=conn.execute(strsql)	  
	  
	response.End()
	conn.close()
	set conn=nothing
end if

'conn.close()
'set conn
session("aaa")="你输入的密码或用户名错误!"
server.Transfer("login.asp")

conn.close()
set conn=nothing
%>