📄 cx_res.asp
字号:
<%@ 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="隶书"> <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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -