第1个回答 2009-07-27
<%
if request("sub")<>"" then
db="数据库路径/数据库名"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr
set rs=server.CreateObject("adodb.recordset")
sql = "select * from 表名"
rs.open sql,conn,1,3
rs.addnew
rs("数据库中存留言的字段名")=request("填写留言那的text的name")
rs.update
rs.close
set rs=nothing
%>
把这个里面汉字改成你要用的,随便放到网页中哪,然后把那个html的表单里的form的action=""改成action="?sub=succ"
就行了
vs也一样的,差不多的