<%
' 创建一个记录集
set rs=server.createobject("adodb.recordset")
' 创建一个变量为sql语句
sql="select * from jwc_news order by news_id DESC"
' 使用游标方式打开数据库并创建记录集
rs.open sql,conn,1,1 %>
<% End If %>
<% dim rs1,rs2
dim sql1,sql2
' 如果post 数据 OK ="确定新增" 则执行下面的
If Request.Form("ok")="确定新增" Then
' 接受数据赋值给变量
news_title=request("news_title")
news_content=request("news_content")
news_author=request("news_author")
news_images=request("news_images")
news_comefrom=request("news_comefrom")
news_tui=request("news_tui")
End If
If request("action")="add" Then
set rs1=server.CreateObject("adodb.recordset")
rs1.Open "jwc_news",conn,3,3
' 记录集增加一条空白
rs1.addnew
' 变量赋值给记录集中的字段
rs1("news_title")=news_title
rs1("news_content")=news_content
rs1("news_author")=news_author
rs1("news_images")=news_images
rs1("news_tui")=news_tui
rs1("news_comefrom")=news_comefrom
' 记录集更新
rs1.update
' 记录集关闭
rs1.close
' 跳转到 news.asp 页
response.Redirect("news.asp")
end if %>