luntan_sendmessage_sql.asp

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

<!--#include file="conn.asp"--> 
<%
message1=request("message")

strsql="select * from friend where name='"&session("sendmessage")&"' and friend='"&session("loginname")&"'"
set rst=conn.execute(strsql)
if not rst.eof then
 while not rsT.eof 
  if rst(3)<>"" then
    adminSql="insert into friend(name,friend,message) values('"&session("sendmessage")&"','"&session("loginname")&"','"&message1&"')"
    set rsT=conn.execute(adminSql)
    session("send")="你已成功发送留言!"
    server.Transfer("luntan_sendmessage.asp")
    conn.close()
    set conn=nothing
  else
    adminsql="update friend set message='"&message1&"' where name='"&session("sendmessage")&"' and friend='"&session("loginname")&"'"
	'adminsql="insert into friend(message) values('"&message1&"')"
	set rst=conn.execute(adminsql)
	session("send")="你已成功发送留言!"
	server.Transfer("luntan_sendmessage.asp")
	    conn.close()
    set conn=nothing
  end if 
  	rsT.movenext
 wend 
else
adminSql="insert into friend(name,friend,message) values('"&session("sendmessage")&"','"&session("loginname")&"','"&message1&"')"
set rsT=conn.execute(adminSql)
session("send")="你已成功发送留言!"
server.Transfer("luntan_sendmessage.asp")
conn.close()
set conn=nothing
end if  
%>