ASP编写出来的通用入库程序,通用web在线发布
跟具论坛的一位前辈的提点终于用ASP写了一个通用入库程序
建立一个save.asp文件
里面写入代码
_________________________________________________________________________
<%
ON ERROR RESUME NEXT
Set cnn=Server.CreateObject("ADODB.Connection")
Set rec=Server.CreateObject("ADODB.Recordset")
cnn.C & Server.MapPath("liuyan.mdb")
cnn.Open
dim SQL
SQL="SELECT * FROM liuyan"
rec.Open SQL,cnn,3,3
rec.AddNew
rec.Fields("name")=request.Form("name")
rec.Fields("qq")=request.Form("qq")
rec.Fields("email")=request.Form("email")
rec.fields("content")=request.form("content")
rec.update
set rec=nothing
set cnn=nothing
%>
______________________________________________________________________
如果是ASP程序员就不用我解译了,
如果对ASP编程不懂那我就解译一下。
liuyan.mdb 这个是数据库名称,也就是你程序的数据名,
SQL="SELECT * FROM liuyan" 红色标出来的这个为 表
rec.Fields("name")=request.Form("name") 字段 及写入 标签。
有了这个就方便任何程序入库了,这个是ACC数据库的,如果是SQL就换一个读取代码就行了。
但记住,入完库删了save.asp这个文件,不要让非法份子录入垃圾内容到你的网站。
我是一个ASP白痴,以上代码只是使用ASP编程助手(Quick ASP) V1 里的 留言本 文件修改而来的,
以测试成功。
以下是成功之后的图片,采集任务里的 笑话 测试的
早就知道火车头,07年吧,但是直到08年才来正真的研究了火车头,坐火车的感觉真好。有问题可以加我QQ:562347955
发扬网络共享精神。帮助别人等于帮助自己。
[ 本帖最后由 qq1196 于 2008-1-20 18:43 编辑 ]
附件: 您所在的用户组无法下载或查看附件