title=Request.Form("title")
body=Request.Form("body")
user_name=Request.Form("user_name")
layer=1
parent_id=0
child=0
hits=0
ip=Request.ServerVariables("remote_addr")
Dim sql,svalues
sql="Insert Into bbs(title,layer,parent_id,child,hits,ip,user_name,submit_date"
svalues = "Values('" & title & "'," & layer & "," & parent_id & "," &child & "," & hits & ",'" & ip & "','" & user_name & "','" & date() & "'"
If body<>"" Then
sql = sql & ",body"
svalues = svalues & "," & "'" & body & "'"
End If
sql = sql & ") " & svalues & ")"
db.Execute(sql)
db.Close
Response.Redirect "ltindex.asp"
End If
%>
回复留言
<%
If Request("title")<>"" And Request("user_name")<>"" Then
Dim body,layer,parent_id,child,hits,ip,user_name
title=Request.Form("title")
body=Request.Form("body")
user_name=Request.Form("user_name")
layer=2
parent_id=bbs_id
child=0
hits=0
ip=Request.ServerVariables("remote_addr")
Dim sql,svalues
sql="InsertInto bbs(title,layer,parent_id,child,hits,ip,user_name,submit_date"
svalues = "Values('" & title & "'," & layer & "," & parent_id &a