luntan_denglu.asp

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

<!--#include file="conn.asp"--> 
<%
   loginname=request("uname")
   loginpass=request("upass")
   
   session("loginname")=loginname
   session("loginpass")=loginpass
   
   box1=request("box1")
   box2=request("box2")
   if box1="aa" then
      session("name")=loginname
	  else 
	  session("name")=""
   end if 
'安全
session("login_name")=loginname
session("login_pass")=loginpass
sapsT=replace(sapsT,"'","*")
sapsT=replace(sapsT,"""","*")

strsql="select * from friend where name='"&loginname&"' and sin=0 "
set rs=conn.execute(strsql)
if not rs.eof then
  if rs("message")<>"" then
  session("sinmessage")="有人给你留言请查看!"
  'session("sinfriend")=rs(2)
  'session("sinmess")=rs(3)
  
  rs.close
  end if
end if 
 

adminSql="select * from usermessage where use_name='"&loginname&"' and pwd='"&loginpass&"'  "
set rsT=conn.execute(adminSql)
if not rsT.eof then
 
	session("check")=1
	session("uname")=loginname
	session("aaa")=""
	server.Transfer("luntan_index.asp")
	conn.close()
	set conn=nothing
end if
 
session("aaa")="密码或用户名错误!"
session("check")=0
server.Transfer("luntan_index.asp")

conn.close()
set conn=nothing
%>