📄 deal_o.asp
字号:
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<LINK href="new.css" rel=stylesheet type=text/css>
<title>闽东二手交易中心</title>
</head>
<body>
<div align="center">
<center>
<table width="700" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="17%" bgcolor="#f0f0f0" valign="top">
<!--#include file="bar_left.asp"-->
</td>
<td width="83%" bgcolor="#ffffff" valign="top">
<!--text begin-->
<br>
<%
on error resume next
connstr = "DBQ="+server.mappath("data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set DataConn = Server.CreateObject("ADODB.Connection")
dataconn.open connstr
Set rs = dataconn.execute("select * from data where ID= "+Cstr(request("ID"))+" order by id desc")
response.write "<blockquote>你好,首先谢谢你对本站以及本地区二手事业的支持!<br>"
response.write "你要购买(或出售)的二手商品是:<font color=#336600>"+rs("goods")+"</font>"
if len(rs("price"))>0 then
response.write ",货主所报的价格为:<font color=#336600>"+rs("price")
end if
response.write "</font>元.<br>该条信息是<font color=#336600>"
response.write rs("province")+" "+rs("city")+"</font>的<font color=#336600>"
response.write rs("name")+"</font>朋友于<font color=#336600>20"+cstr(rs("date"))+" "+cstr(rs("time"))+"</font>在本站提交."
response.write "<br>目前有<font color=#336600>"+cstr(rs("deal"))+"</font>位朋友表示有购买(出售)意向.请您赶快行动吧.<br>"
response.write "<br><font color=#336600>"
response.write rs("name")+"</font>朋友的联系方法如下:<br>"
response.write "电子信箱:<a href='mailto:"+ cstr(rs("email"))+"' ><font color=#336600>"+rs("email")+"</font></a><br>"
response.write "联系电话:<font color=#336600>"+Rs("telephone")+"</font><br>"
response.write "联系传呼:<font color=#336600>"+Rs("bbcall")+"</font><br>"
response.write "ICQ 号码:<font color=#336600>"+Rs("icq")+"</font><br>"
response.write "OICQ号码:<font color=#336600>"+Rs("oicq")+"</font><br><br>"
response.write "有关该物品的进一步信息:<font color=#336600>"+rs("content")+"</font><br>"
response.write "同时货主还要求以<font color=#336600>"+rs("trademode")+"</font>的方式进行交易."
%>
<br><br>最后,祝君好运!
<%
connstr = "DBQ="+server.mappath("data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set DataConn = Server.CreateObject("ADODB.Connection")
dataconn.open connstr
Set rs = dataconn.execute("update data set deal = deal+1 WHERE id=" +Cstr(request("id")))
%>
<br>
<!--text end-->
<!--#include file="adv.htm"--> </td>
</tr>
</td>
</tr>
</table>
</table>
</div> </body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -