毕业设计题目：图书管理系统

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

毕业设计题目：图书管理系统(七)