|
#2
yms1232010-04-15 11:20
|
以下是我的代码，忘哪位兄弟帮忙解决下！本页面名称untitled.asp数据库cool.mdb表单名book！忘兄弟姐妹们指点迷津！谢谢！
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.
<html xmlns="http://www.
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<form method="post" name="form1" action="untitled.asp">
name<input type="text" name="name" /><br />
tel<input type="text" name="tel" /><br />
message<input type="text" name="message" value="" /><br>
<input type="submit" name="submit1" value="提交" />
<input type="reset" name="submit2" value="重置" />
</form>
<%
dim conn,db
dim connstr
db="local/cool.mdb" '数据库文件位置
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if
sub CloseConn()
conn.close
set conn=nothing
end sub
%>
<%
exec="select * from book"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%do while not rs.eof%><tr>
<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
<td><%=rs("message")%></td>
<td><%=rs("time")%></td>
</tr><%
rs.movenext
loop
%>
</table>
</body>
</html>
[ 本帖最后由 三哥 于 2010-4-15 11:15 编辑 ]