sql_speak.asp

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

<!--#include file="conn.asp"--> 
<%
   sql_title=request("title")
   sql_titlearea=request("titlearea")
  strsql="select * from usermessage where use_name='"&session("loginname")&"'"
  set rs=conn.execute(strsql)
    'response.Write(rs("score"))
	'response.Write(rs("ordrule_login"))
	'response.End()
if sql_title<>"" and sql_titlearea<>"" then
saveAddSql="insert into luntan_tiemessage(tit_id,title,connent,name,score,ordrule,last_name,picture,luntan,sin_name)  values(1,'"&sql_title&"','"&sql_titlearea&"','"&session("loginname")&"','"&rs("score")&"','"&rs("ordsule_login")&"','"&session("loginname")&"','"&rs("picture")&"','"&session("luntanid")&"','"&rs("sinl_login")&"')"
'response.Write(saveaddsql)
set rsT=conn.execute(saveAddSql)

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_index.asp")
conn.close()
set conn=nothing
else 
session("speak")="你的主题输入不能为空!"
server.Transfer("luntan_speak.asp")
end if 
%>