find.asp

来自「梦想世界虚拟社区」· ASP 代码 · 共 77 行

ASP
77 行
字号 
<!--#include file="in.inc" -->
<html>
<head>
<title>查找结果</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../format.css" type="text/css">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<%
Set Cnn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.recordset")
set rs1 = Server.CreateObject("ADODB.recordset")
set rs2 = Server.CreateObject("ADODB.recordset")
StrCnn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("..\base\dumm.mdb")
Cnn.Open StrCnn
temp = trim(request.form ("t1"))
qq1 = trim(request ("qq"))
mail1 = trim(request ("mail"))
sex1 = trim(request ("sex"))
old1 = trim(request ("old"))
name11 = trim(request ("name1"))
zone1 = trim(request ("zone"))
%>
<table width="350" border="1" cellspacing="0" cellpadding="0" bordercolorlight="#FFFFFF" bordercolordark="#990000" align="center">
  <tr>
    <td background="../images/beijing1.gif">
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr align="center"> 
          <td> 
            <%rs2.open "select 金钱 from 资料 where 昵称 = '"&session ("name1")&"'",cnn
		  if rs2("金钱") < 20 then %>
            你的金钱不够20C，请攒够前后再来查找 
            <% rs2.close
			response.end 
			end if %>
			
			<% rs1.open "update 资料 set 金钱 = 金钱 - 20 where 昵称 = '" & session ("name1") & "'",cnn %>
            <%
			select case temp
			case "name1"  rs.open "select 昵称,id from 资料 where 昵称 = '"&name11&"'",cnn 
			case "qq"  rs.open "select 昵称,id from 资料 where qq = '"&qq1&"'",cnn
			case "mail"  rs.open "select 昵称,id from 资料 where mail = '"&mail1&"'",cnn
			case "sex"  rs.open "select 昵称,id from 资料 where 性别 = '"&sex1&"'",cnn
			case "old"  rs.open "select 昵称,id from 资料 where 年龄 = '"&old1&"'",cnn
			case "zone"  rs.open "select 昵称,id from 资料 where 地区 = '"&zone1&"'",cnn
			end select %>
			<%if rs.eof then
			response.write ("很抱歉，没有查到相关信息！") %>
			<%else %>
			<%response.write ("恭喜！你找到啦！")%>
			
          </td>
        </tr>
        <tr> 
          <td><% while not rs.eof %>
            <a href = "../vew.asp?Num=<%Response.Write (rs("id")) %>"> 
            <%response.write (rs("昵称")) %>
                  </a> 
                  <%response.write ("|")
				rs.movenext
				wend %>
				<%end if
				
				rs.close
				cnn.close %></td>
        </tr>
        <tr> 
          <td align="center">查看网友信息，需经验值达到50以上</td>
        </tr>
      </table>
    </td>
  </tr>
</table>
</body>
</html>

find.asp - 源码说明

本页面展示了「梦想世界虚拟社区」中的 find.asp 源码文件，采用 ASP 编程语言编写，共 77 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与虚拟相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?