cx_res.asp

来自「这是书上的代码」· ASP 代码 · 共 84 行

ASP
84 行
字号 
<%@ Language=vBScript %>
<%
valgq=Trim(request("gq"))
valxqh=Trim(request("xqh"))
valhy=Trim(request("hy"))
If valhy="不限" then valhy=""
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft visual Studio 6.0">
</HEAD>
<BODY background=images/pap15.gif bgcolor=#FFFFFF>
<font size="5" color="blue" face="隶书">　　　　</font>
<font size="5" color="blue" face="隶书">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;　<FONT 
face=楷体_GB2312 size=5>供需信息查询</FONT></font>
<% 
  Set lrs=Server.CreateObject("ADODB.Recordset")
  sqlstr1="select  gxbh,fbrq,jzrq,email,gq,dwmc,spmc,ggxh,hy,jndw,shuliang,jiage,cd,bz,jhdd,xqh,lxr,lxdh,bzsm from gqk where"
  If valgq<>"" then
        sqlstr4=" gq like '%"+valgq+"%' and "
  Else
        sqlstr4=""
  End If
  If valxqh<>"" then
        sqlstr5=" xqh like '%"+valxqh+"%' and "
  Else
        sqlstr5=""
  End If
  sqlstr6=" hy like '%"+valhy+"%'"
  sqlstr=sqlstr1+sqlstr4+ sqlstr5+ sqlstr6
  'Response.Write sqlstr
   lrs.Open sqlstr , "DSN=js_dsn;UID=sa;PWD=;DATABASE=js"
 %>
<td vAlign="top" width="78%"><div align="center"><center><table border="0" cellPadding="3"
    cellSpacing="0" width="95%">
<TBODY>
      <tr>
        <td><%
      ' Display count in a table  
              count=0
             Do While Not lrs.EOF 
                   count=count+1
                  lrs.MoveNext
              Loop
             If count=0 then %>
<p align="center"><font size="4" color="Blue">对不起，没有找到相应的信息</font> 
<% Else %><%lrs.MoveFirst
     ' Display data in a table  %>       
        </td>
      </tr>
      <tr align="center">
        <td class="small14" width="100%" color="Blue"><p align="center"><br>
        <strong><big>供需之窗查询结果:<% =valgq %>(共<%=count%>条)</big></strong>
        <hr>
        </td>
      </tr>
</TBODY>
<table  width=95% border=1 bordercolordark=SteelBlue>
  <tr>
  <td align=center>供需编号<BR>
  <td align=center>单位名称<BR>
  <td align=center>商品名称<BR>
  <td align=center>现/期货<BR>
  <td align=center>联系人<BR>
  <td align=center>联系电话<BR>
 <%Do while not lrs.EOF 
  %>
  <tr>
  <td align=center><a href="xx.asp?gxbh=<%=Trim(lrs(0))%>"><span class="small14"><%=Trim(lrs(0))%></span></a> </td>
  <td align=center><%=Trim(lrs(5))%><BR>
  <td align=center><%=Trim(lrs(6))%><BR>
  <td align=center><%=Trim(lrs(15))%><BR>
  <td align=center><%=Trim(lrs(16))%><BR>
  <td align=center><%=Trim(lrs(17))%><BR>
  <%
  lrs.MoveNext
  Loop%>
 </table>  
<%
  End If
%>
</BODY>
</HTML>

cx_res.asp - 源码说明

本页面展示了「这是书上的代码」中的 cx_res.asp 源码文件，采用 ASP 编程语言编写，共 84 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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