📄 searchrecord.asp
字号:
<!-- #include file="fieldtype.asp" -->
<!-- #include file="connmdb.asp" -->
<%
dim tablename,no,count
tablename = request("tablename")
rs.close
sql = "select * from ["&tablename&"]"
rs.open sql,conn,1,1
%>
<html>
<head>
<title>SmartCity 远程数据库管理系统</title>
<link rel="stylesheet" type="text/css" href="data/css.css">
</head>
<body background="data/background.gif" bgproperties=fixed>
<table width="100%" align="center">
<tr>
<td align="center">
<b><font size="5">SmartCity 远程数据库管理系统</font><br><font size="4">Version 1.0 beta</font><br><br></b>
</td>
</tr>
<tr>
<td align="center">
<div style="width: 740;">
<table width="100%">
<tr>
<td align="center" width="80"><a href="index.asp">重选数据库</a></td>
<td align="center" width="70"><a href="tablelist.asp">数据库列表</a></td>
<td align="center" width="70"><a href="createnewtable.asp?tablename=<%=tablename%>">新建表格</a></td>
<td align="center" width="70"><a href="recordlist.asp?tablename=<%=tablename%>"><%=tablename%>列表</a></td>
<td></td>
<td align="center" width="50"><a href="changepsw.asp">修改密码</a></td>
<td align="center" width="45"><a href="tablelist.asp?tablename=<%=tablename%>">返回</a></td>
</tr>
</table>
</div>
<br>
</td>
</tr>
<tr>
<td align="center">
<form action="searchrecord.asp?tablename=<%=tablename%>&flag=ok" method="post">
查找条件 <select name="fieldname">
<%
no = 0
for each field in rs.fields
no = no+1
%>
<option value=<%=field.name%>
<%
if no = 1 then
%>
selected
<%
end if
%>
><%=field.name%></option>
<%
next
%>
</select>
<select name="searchtype">
<option value="=" selected>等于</option>
<option value="<">小于</option>
<option value=">">大于</option>
<option value="like">包含</option>
</select>
<input type="text" name="val" class="txt" onmouseover="this.style.color='FF9966'" onmouseout="this.style.color='#4B69D8'"> 
<input type="submit" value="查找" class="btn" onmouseover="this.style.color='FF9966'" onmouseout="this.style.color='#4B69D8'">
</form>
查找结果<br><hr>
<%
if request("flag") = "ok" then
dim fieldname,val,searchtype
fieldname = request("fieldname")
val = request("val")
searchtype = request("searchtype")
set srs = Server.CreateObject("ADODB.Recordset")
ssql = "select * from ["&tablename&"]"
srs.open ssql,conn,1,1
ssql = ""
select case srs(fieldname).type
case vtext,vmemo
if searchtype = "=" or searchtype = "<" or searchtype = ">" then
ssql = "select * from ["&tablename&"] where ["&fieldname&"] "&searchtype&" '"&val&"'"
else
ssql = "select * from ["&tablename&"] where ["&fieldname&"] like '%"&val&"%'"
end if
case vint
if not searchtype = "like" then
ssql = "select * from ["&tablename&"] where ["&fieldname&"] "&searchtype&" "&val&""
else
ssql = "select * from ["&tablename&"] where ["&fieldname&"] = "&val&""
end if
case vdate
if not searchtype = "like" then
ssql = "select * from ["&tablename&"] where ["&fieldname&"] "&searchtype&" cdate('"&val&"')"
else
ssql = "select * from ["&tablename&"] where ["&fieldname&"] = cdate('"&val&"')"
end if
case vbool
ssql = "select * from ["&tablename&"] where ["&fieldname&"] = "&val&""
end select
srs.close
if val = "" then
response.write "请输入查找条件！"
else
if not ssql = "" then
srs.open ssql,conn,1,1
%>
<table class="line" width="100%">
<tr>
<%
for each field in srs.fields
%>
<td class="line" bgcolor="#CCCFFF"><%=field.name%></td>
<%
next
%>
</tr>
<%
count = 0
do while not srs.eof and count < rs.PageSize
count = count+1
%>
<tr>
<%
for each field in srs.fields
%>
<td class="line"><%=srs(field.name)%></td>
<%
next
%>
</tr>
<%
srs.movenext
loop
%>
</table>
<%
else
response.write "对不起，本系统暂不支持此字段类型！"
end if
end if
end if
%>
<br><br><br>
</td>
</tr>
<tr>
<td align="center">
小城工作室作品 2003.9<br>
欢迎访问<a href="http://218.4.50.118/smartcity">『SmartCity 小城在线』</a>
</td>
</tr>
</talbe>
<%
rs.close
conn.close
set rs = nothing
set conn = nothing
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -