luntan_sql_talk.asp

这是一个用ASP 做的论坛.值得研究一下. 最有趣的是,发帖支持 HTML 代码 可以回出很好玩的帖.本来想把设计架构也发上来的,它在本子上,懒得抄拉

<!--#include file="conn.asp"--> 
<%
   sql_huitie=request("huitie")
   
  strsql="select * from usermessage where use_name='"&session("loginname")&"'"
  set rs=conn.execute(strsql)
 
if sql_huitie<>"" then
saveAddSql="insert into luntan_tiemessage(borit_id,connent,name,score,ordrule,last_name,picture,sin_name)  values('"&session("tieid2")&"','"&sql_huitie&"','"&session("loginname")&"','"&rs("score")&"','"&rs("ordsule_login")&"','"&session("loginname")&"','"&rs("picture")&"','"&rs("sinl_login")&"')"
 
set rsT=conn.execute(saveAddSql)
numsql="update luntan_tiemessage set last_name='"&session("loginname")&"' where id="&session("tieid2")&""
set rst=conn.execute(numsql)

score1sql="select * from usermessage where use_name='"&session("loginname")&"'"
set rst1=conn.execute(score1sql)
scorelogin=rst1("score")+10
score2sql="update usermessage set score='"&scorelogin&"' where use_name='"&session("loginname")&"'"
set rst1=conn.execute(score2sql)
 


response.Redirect("luntan_look.asp")
conn.close()
set conn=nothing
else 
 
server.Transfer("luntan_look.asp")
end if 
%>