news.asp

一个非常优秀的自动建站程序

<%
Connstr1="DBQ="+Server.mappath("news.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set conn1 = Server.CreateObject("ADODB.Connection")
conn1.open connstr1
set rs=server.createobject("adodb.recordset")
sql="select * from [News] where (ID is null)"
rs.open sql,conn1,1,3
rs.addnew
rs("Title")=Request.form("Title")
rs("Context")=Request.form("Context")
rs.update
%>