资料设计题目：图书管理系统(七)

资料设计题目：图书管理系统(七)
 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

首页 上一页 4 5 6 7 8 9 下一页 尾页 7/9/9

资料设计题目：图书管理系统(七)由毕业论文网（www.huoyuandh.com）会员上传。