查人人中国名人网诛仙手游加15技巧:求助一个asp程序
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/04 16:49:22
即，访客可以留言，然后对留言可以有投票功能的。
我不是要搜索功能的，不好意思啊
送你个例子
是两个文件组成的,用来查询姓名和电话号码
最关键的语句是
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("db111.mdb")
exec="select * from guestbook where name='"+name+"' and tel="+tel
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
一.serch.htm
<form name="form1" method="post" action="serch.asp">
搜索：<br>
name =
<input type="text" name="name">
and tel=
<input type="text" name="tel">
<br>
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重置">
</form>
二.serch.asp
<%
name=request.form("name")
tel=request.form("tel")
if name="" or tel="" then
response.write "记录不能为空"+"<br>"
else
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("db111.mdb")
exec="select * from guestbook where name='"+name+"' and tel="+tel
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
<html>
<head>
<title>无标题文档</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<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
end if
%>
</table>
</body>
</html>