<%
sub addnews()
IF Request("add")<>"yes" Then
%>
HTML代码…………
<%else
dim title,name,email,picUrl,demo,kinds,come,auth,sql,clas
title=request("title")
picUrl=request("picUrl")
For i = 1 To Request.Form("demo").Count
sContent = sContent & Request.Form("demo")(i)
Next
demo=sContent
clas=request("clas")
come=request("come")
kinds=request("kinds")
if len(demo)=0 then
response.write"<center><font color=#ff0000 size=2>内容不能为空！</font></center>"
response.write"<center><font size=2><a href=# onclick=history.go(-1)>按这里返回</a></font></center>"
response.end
end if
if len(picUrl)=0 then picUrl=" "
if len(come)=0 then come=" "
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from HN_pro"
rs.open sql,conn,1,3
rs.addnew
rs("title")=title
rs("demo")=demo
rs("come")=come
rs("class")=clas
rs("time")=date
rs.update
rs.close
set rs=nothing
Response.Write "<br>添加成功！<meta http-equiv=refresh content=""0;URL=?work=palynews&cla="&clas&""">"
end if
end sub
%>
<%
sub palynews()
%>
往 数据表 HN_pro增加一条记录 并且进行了内容不能为空的验证
<%
sub addnews() '定义了一个子程序：addnews
IF Request("add")<>"yes" Then '如果参数add的值不是yes就输出下面的HTML代码
%>
HTML代码…………
<%else '如果参数add的值是yes
dim title,name,email,picUrl,demo,kinds,come,auth,sql,clas '定义变量
title=request("title") '返回的参数title的值赋给变量title
picUrl=request("picUrl") '返回的参数picUrl的值赋给变量picUrl
For i = 1 To Request.Form("demo").Count '遍历返回的表单集合
sContent = sContent & Request.Form("demo")(i)
Next
demo=sContent '遍历的结果赋给变量demo
clas=request("clas") '返回的参数clas的值赋给变量clas
come=request("come")'返回的参数clas的值赋给变量come
kinds=request("kinds")'返回的参数clas的值赋给变量kinds
if len(demo)=0 then '如果变量demo是空，就输出提示信息，并且结束整个页面运行
response.write"<center><font color=#ff0000 size=2>内容不能为空！</font></center>"
response.write"<center><font size=2><a href=# onclick=history.go(-1)>按这里返回</a></font></center>"
response.end
end if
if len(picUrl)=0 then picUrl=" " '如果变量picUrl为空，则令它等于一个空格
if len(come)=0 then come=" " '如果变量come为空，则令它等于一个空格
set rs=Server.CreateObject("ADODB.Recordset")'创建一个记录集rs
sql="select * from HN_pro" '构造要执行的SQL查询语句
rs.open sql,conn,1,3 '执行上面的语句
rs.addnew '给rs添加一条记录
rs("title")=title '变量title的值赋给新加的记录的title字段
rs("demo")=demo '变量demo的值赋给新加的记录的title字段
rs("come")=come '变量title的值赋给新加的记录的come字段
rs("class")=clas '变量clas的值赋给新加的记录的clas字段
rs("time")=date '变量title的值赋给新加的记录的title字段
rs.update '更新记录集rs（将记录集写回数据库）
rs.close '关闭记录集rs
set rs=nothing '清空记录集rs
Response.Write "<br>添加成功！<meta http-equiv=refresh content=""0;URL=?work=palynews&cla="&clas&""">" '输出提示信息：添加成功
end if
end sub '子程序addnews结束
%>
<%
sub palynews() '开始定义一个子程序：palynews
%>