add.asp

asp开发 asp开发 asp开发 asp开发

	<!--#Include file="odbc_connection.asp"-->
	<!--#Include file="function.asp"-->
	<%
	'首先获取有关变量
	Dim body,father,hits,user_id,IP                        '声明变量方便使用
	title=myReplace(Request.Form("title"))                 '返回文章标题
	body=myReplace(Request.Form("body"))                   '返回文章内容
	user_id=myReplace(Request.Form("user_id"))             '返回作者姓名
	user_email=myReplace(Request.Form("user_email"))       '返回作者email
	hits=0                                                 '点击数为0
	forum_id=Session("forum_id")                           '论坛编号
	IP=Request.ServerVariables("REMOTE_ADDR") 

	'以下将文章保存到数据库
	Dim sqla,sqlb,strSql
	sqla = "Insert Into bbs(title,hits,user_id,submit_date,forum_id,ip"
	sqlb = "Values('" & title & "'," & hits & ",'" & user_id & "',#" & Now() & "#," & forum_id & ",'" & IP & "'"
	If body<>"" Then                                       '如果文章内容不为空，则添加内容
		sqla = sqla & ",body"
		sqlb = sqlb & ",'" & body & "'"
	End If
	If user_email<>"" Then                                 '如果添加了email，则添加
		sqla = sqla & ",user_email"
		sqlb = sqlb & ",'" & user_email & "'"
	End If
	strSql = sqla & ") " & sqlb & ")"
	db.Execute(strSql)

	'下面首先获取刚刚添加的文章的记录编号id
	Dim rs,id
	strSql="Select Top 1 id From bbs Where title='" & title & "' And user_id='" & user_id & "' Order By id desc"
	Set rs=db.Execute(strSql)
	id=rs("id")

	'下面将更新该文章的父记录编号father_id和第1层记录编号first_id
	strSql="Update bbs Set father_id='" & GetFatherCode(id) & "',first_id=" & id & " Where id=" & id
	Response.Write "<p>" & StrSql
	db.Execute(strSql)

	'下面两句将本栏目文章数加1
	strSql="update forum set forumcount=forumcount+1 where ID = " & forum_id
	db.Execute(strSql)

	'重定向回首页
	Response.Redirect "bbslist.asp"
	%>