28,391
社区成员
发帖
与我相关
我的任务
分享
<td width="285" height="31" bgcolor="#E4EBF1">
<FORM name=sou1 action="?cnmai=1" method=POST style="line-height: 150%; margin-top: 0; margin-bottom: 0">
<p align="center">按帐号:<input type="text" name="T1" size="10">
<input type="submit" value="查找" name="B1">
</form>
</td>
<td width="285" height="31" bgcolor="#E4EBF1">
<FORM name=sou2 action="?cnmai=2" method=POST style="line-height: 150%; margin-top: 0; margin-bottom: 0">
<p align="center">按姓名:
<input type="text" name="T2" size="10">
<input type="submit" value="查找" name="B1">
</form>
</td>
<td width="285" bgcolor="#E4EBF1">
<FORM name=sou3 action="?cnmai=8" method=POST style="line-height: 150%; margin-top: 0; margin-bottom: 0">
<p align="center">按关键词:
<input type="text" name="T3" size="10">
<input type="submit" value="查找" name="B1">
</form>
</td>
<%
dim rs,sql,k,cnmai
dim ThisPage,Pagesize,Allrecord,Allpage
k=1
set rs = Server.CreateObject("ADODB.RecordSet")
cnmai=trim(request("cnmai"))
Select Case cnmai
Case "1"
sql="select * from [xinxi] where username='"&trim(request("T1"))&"' order by b desc"
Case "2"
sql="select * from [xinxi] where name like '%"&trim(request("T2"))&"%' order by b desc"
Case "3"
sql="select * from [xinxi] where biaoti like '%"&trim(request("T3"))&"%' or memo like '%"&trim(request("T3"))&"%' order by b desc"
Case Else
sql="select * from [xinxi] order by fbsj desc"
End Select
<td width="285" bgcolor="#E4EBF1">
<FORM name=sou3 action="?cnmai=3" method=POST style="line-height: 150%; margin-top: 0; margin-bottom: 0">
<p align="center">按关键词:
<input type="text" name="T3" size="10">
<input type="submit" value="查找" name="B1">
</form>
</td>
sql="select * from [xinxi] where biaoti like '%"&trim(request("T3"))&"%' or [memo] like '%" & trim(request("T3")) & "%' order by b desc"