addsubject1.asp

来自「这是我自己设计的一个资源管理系统」· ASP 代码 · 共 16 行

<title>资源管理系统</title><%
  dim title,content,authorID,bbsT,sql,menuID
  title=request.form("title")
  content=request.form("content")
  menuID=request.form("menuID")
  authorID=session("userID")
  bbsT=now()
  
  set conn=server.CreateObject("adodb.connection")
  conn.open"DBSource","sa",""
  
  sql="insert into TBbs(author_id,bbs_title,bbs_time,bbs_content) values('"&authorID&"','"&title&"','"&bbsT&"','"&content&"')"
  conn.execute(sql)
  
  response.redirect("bbs.asp?menuID="&menuID)
%>