⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 newsadd.asp

📁 asp开发 asp开发 asp开发 asp开发
💻 ASP
字号:
<link rel="stylesheet" type="text/css" href="news.css">
<%
'id为一隐藏标记,用于判断是第一次进入页面,还是提交到该页面
id=Request("id")

'如果title不为空,则添加记录
if Request.form("title")<>"" then
   set conn=server.createobject("ADODB.CONNECTION")
   conn.open "DBQ="+server.mappath("news.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};"
   title=Trim(request.form("title"))   
   sql="select * from news where "
	  if id<>"" then
	 	sql=sql&"id="&id
	  else
		sql=sql&"title='"&title&"'"
	  end if
   set rs=Server.CreateObject("ADODB.recordset")
   rs.Open sql,conn,1,3
   if rs.eof or rs.bof then
	  rs.addnew
   end if
   rs("title") = Request.form("title")
   rs("content") = Request.form("body")
   rs("type") = Request.form("type")
   rs("keyw") = Request.form("keyw")
   rs("write") = Request.form("writer")
   rs.Update
   rs.close
   conn.close
   set rs=nothing
   set conn=nothing
end if     

if id <> "" then
	set conn=server.createobject("ADODB.CONNECTION")
	conn.open "DBQ="+server.mappath("news.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};"
	sql="select * from news where id="&id
	set rs=Server.CreateObject("ADODB.recordset")
	rs.Open sql,conn,1,1
	if not rs.eof then
			title1=rs("title")
			content=rs("content")
			keyw=rs("keyw")
			write=rs("write")
	end if
	rs.close
	conn.close
end if
%>

<form name=form1 method="post" action="newsadd.asp">
  <input value="<%=id%>" type=hidden name=id>
  <P align="center">标 题:<INPUT size=85 name=title value=<%=title1%>></P>
  <P align="center">内 容:<TEXTAREA cols=73 name=body rows=15><%=content%></TEXTAREA></P>
  <P align="center">关键字:<INPUT size=25 name=keyw value=<%=keyw%>>
 作者:
 <INPUT size=25 name=writer value=<%=write%>> 
 类型:
 <select span style="font-size:10.5pt" name="type">
     <option value="0">文本</option>
     <option value="1">链接</option>
  </select>
  <p align="center">
  <INPUT class=buttonface type=submit value=" 确 定 ">
  <INPUT class=buttonface type=reset value=" 清 除 "></p>
</form>
<P align="right"><a href="newsedit.asp">编辑新闻</a> <a href=".">查看新闻</a>
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -