add_topic_deal.asp

建造工业系统所需的SQL源代码

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="Conn/Conn.asp"-->
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
SQL="Select ID From tb_User Where UserName='"&Session("UserName")&"'"
rs.Open SQL,conn,1,3
Author=rs("ID")
Face="face"&Request.Form("emote")&".gif"
content=Request.Form("content")
IP=Request.Form("HIP")

If content<>"" Then
	On Error resume Next
	Ins_T="Insert Into tb_topic (Author,Face,content,IP) values("&Author&",'"&Face&"','"&content&"','"&IP&"')"
	Conn.Execute(Ins_T)	
	upd_T="Update tb_User Set SendRatio=SendRatio+1 Where ID="&Author  '更新用户的发帖数
	Conn.Execute(Upd_T)		
	If err<>0 Then%>
		<script language="javascript">
			alert("留言失败！");
			history.back();
		</script>
	<%Else%>
		<script language="javascript">
			alert("留言成功！");
			window.location.href="index.asp";
		</script>
	<%End If
End If
%>