📄 shrevise0.asp
字号:
<%@ LANGUAGE="VBSCRIPT"%>
<%
cname=request("cname")
pname=request("pname")
response.write cname
if request("page")="" then
page=1
else
page=request("page")
end if
set conn=server.createObject("ADODB.Connection")
dbpath=server.mappath("market.mdb")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbpath
set rs=server.createobject("ADODB.Recordset")
rs.LockType=2
sqlstr="select * from buyinfo where city='"& cname &"' and pname='"& pname &"' order by stime desc"
rs.open sqlstr,conn,1
if rs.eof then
response.write "查无此信息！<br>"
response.write "<a href='showinfo.asp'>返回二手信息提交...</a>"
else
rs.pagesize=1
rs.absolutepage=page
%>
<html>
<head>
</head>
<body bgcolor="#FFFFFF" >
<table width="740" border="0" cellspacing="0" cellpadding="0" align="center" height="40">
<tr>
<td width="217" height="39" align="center" valign="bottom"></td>
<td width="523" valign="bottom" height="39"><a href="/zhao/default.asp">本站首页</a>
>> 二手市场 </td>
</tr>
<tr>
<td colspan="2" height="1" bgcolor="006600"></td>
</tr>
</table>
<table width="740" border="0" cellspacing="0" cellpadding="0" height="50">
<tr>
<td> </td>
</tr>
</table>
<form name=form1 method=post action="shrevise1.asp" >
<table width="530" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="111" align="right" class="green">【商品名称】</td>
<td width="419">
<input name= pname class="botton" maxlength="15" size="20" value=<%=rs("pname")%>>
</td>
</tr>
<tr>
<td width="111" align="right" class="green">【价格】</td>
<td width="419">
<input name = price class="botton" maxlength="15" size="24" value=<%=rs("price")%>>
</td>
</tr>
<tr>
<td width="111" align="right" class="green" valign="top">【物品描述】</td>
<td width="419">
<textarea cols=50 name=desc rows=6 class="botton"><%=rs("des")%></textarea>
</td>
</tr>
<tr>
<td width="111" align="right" class="green">【E_MAIL】</td>
<td width="419">
<input name=email class="botton" size="30" maxlength="30" value=<%=rs("email")%>>
</td>
</tr>
<tr>
<td width="111" align="right" class="green">【联系方式】</td>
<td width="419">
<input name=contact class="botton" size="50" maxlength="40" value=<%=rs("contact")%>>
</td>
</tr>
<tr align="center" valign="bottom">
<td colspan="2" height="60">
<input type = "submit" onSubmit="checkvalid" value= "提交" name= "submit1" class="botton">
<input type = "submit" value= "删除" name= "submit12" class="botton">
</td>
</tr>
<tr>
<td><input type=hidden name=id value=<%=rs("ID")%>></td>
</tr>
</table>
</form>
<form method="post" action="admrevise0.asp">
<table width="80%" border="0" cellpadding="0" cellspacing="0">
<%
if rs.pagecount>1 then
%>
<tr>
<td align="center" colspan="2"> <%if page>1 then%>
<input type="button" value="首页" onClick="window.location.href='shrevise0.asp?cname=<%=trim(request("cname"))%>&page=1&pname=<%=request("pname")%>'" name="button" class="botton1" >
<input type="button" value="前页" onClick="window.location.href='shrevise0.asp?cname=<%=trim(request("cname"))%>&page=<%=(page-1)%>&pname=<%=request("pname")%>'" name="button22" class="botton1">
<%
end if
if cint(page)<rs.pagecount then
%>
<input type="button" value="后页" onClick="window.location.href='shrevise0.asp?cname=<%=trim(request("cname"))%>&page=<%=(page+1)%>&pname=<%=request("pname")%>'" name="button23" class="botton1">
<input type="button" value="末页" onClick="window.location.href='shrevise0.asp?cname=<%=trim(request("cname"))%>&page=<%=(rs.pagecount)%>&pname=<%=request("pname")%>'" name="button2" class="botton1" >
<%end if%> </td>
</tr>
<%
end if
%>
</table>
</form>
</body>
</html>
<%
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -