评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

毕业设计题目：图书管理系统(一)毕业论(7)

2013-07-25 01:16
 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                                           您可以访问中国科教评价网（www.NsEac.com）查看更多相关的文章。
  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