<%

    set rs=server.createobject("adodb.recordset")

    rs.open "select * from 信息表 where 索取号=’”&trim(request(“suoqu”))&”’”,c1,1,3

‘建立rs对象打开信息表，当c1,1,3时数据库是以可操作形式打开，当c1,1,1时数据库是以只读形式打开，在操作数据库中常用的有这两种方式，其他的参数请具体参考MSDN。

if rs.recordcount=0 then

‘设定索取号不能有重复，如果添的索取号不重复时，继续添加

rs.addnew

    rs("索取号")=trim(theform("suoqu"))

    ‘trim为ASP中的内建函数，表示为去掉文本两边的空格

    rs("标题")=trim(theform("name"))

    rs("内容简介")=theform("content")

    rs("发布时间")=now

    ‘now为ASP中的内建函数，表示获取当前时间

    rs.update

‘通过以上代码执行，数据添加成功

else

‘如果索取号重复时，停止添加

    Response.write “您添加的索取号在数据库中有重复，请重新添加！”

    Response.end

    ‘停止继续执行语句

end if

rs.close

c1.close

%>