📄 searchatc.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<%session("sql")=""
DbPath = SERVER.MapPath("db1.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
set rs=server.createobject("adodb.recordset")
sqlText="select boardid,boardname from board_info"
rs.open sqltext,conn,1
if rs.eof and rs.bof then
rs.close
conn.close
set rs=nothing
set conn=nothing
response.write "no lanmu!"
response.end
else
total=rs.recordcount
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FEE9BC">
<p align="center"><b><font size="4" color="#3300CC">贴子查询</font></b></p>
<form method="post" action="searchatcact.asp" name>
<table width="75%" border="1" align="center" cellspacing="0" cellpadding="3"
bordercolorlight="#000000" bordercolordark="#FFFFFF">
<tr>
<td width="17%" bgcolor="#DDDFFF"><div align="center"><center><p>发布者 </td>
<td width="83%" bgcolor="#DBF1F2"><input type="text" name="guestname" size="20"> </td>
</tr>
<tr>
<td height="26" width="17%" bgcolor="#DDDFFF"><div align="center"><center><p>版 面 </td>
<td height="26" width="83%" bgcolor="#DBF1F2"><select name="boardid" size="1">
<option value selected>不知道</option>
<%for i=1 to total response.write "<option value='"&rs("boardid")&"'>"&rs("boardname")&"</option>" rs.movenext if rs.eof then exit for end if next rs.closeconn.closeset rs=nothingset conn=nothingend if%> </select> </td>
</tr>
<tr>
<td height="24" width="17%" bgcolor="#DDDFFF"><div align="center"><center><p>发布时间 </td>
<td height="24" width="83%" bgcolor="#DBF1F2"><input type="radio" name="t1" value="0"
checked> 大于 <input type="radio" name="t1" value="1"> 等于 <input type="radio"
name="t1" value="2"> 小于 <input type="text" name="whattime" size="20"> 例:<font
color="#FF0066">99-1-1</font> </td>
</tr>
<tr>
<td width="17%" bgcolor="#DDDFFF" height="35"><div align="center"><center><p>贴子主题 </td>
<td width="83%" bgcolor="#DBF1F2" height="35"><input type="text" name="title" size="20">
关键字模糊查询</td>
</tr>
</table>
<dd align="center"><input type="submit" name="Submit" value="查 找"> </dd>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -