📄 con_flea.asp
字号:
<!-- #include file="skin.asp" -->
<!-- #include file="jk_nsort.asp" -->
<!-- #include file="jk_page_cute.asp" -->
<!-- #include file="jk_ubb.asp" -->
<!-- #include file="jk_mail.asp" -->
<%
dim pageurl,nummer,sqladd,page,rssum,thepages,viewpage,id,username,keyword,sea_type,types
nummer=5
rssum=0
n_sort="flea"
index_url="flea"
tit_fir=format_menu(index_url)
id=trim(request.querystring("id"))
cid=trim(request.querystring("c_id"))
sid=trim(request.querystring("s_id"))
if not(isnumeric(id)) then id=0
if not(isnumeric(cid)) then cid=0
if not(isnumeric(sid)) then sid=0
call cid_sid()
dim price_head,now_ymd
price_head="#"
now_ymd=joekoe_cms.time_type(joekoe_cms.now_time,4)
if joekoe_cms.web_vt=1 then price_head="'"
keyword=joekoe_cms.code_form(request.querystring("keyword"))
sea_type=trim(request.querystring("sea_type"))
types=trim(request.querystring("types"))
m_channel=index_url
web_img_m="m_"&m_channel
web_img_h="h_"&m_channel
sub flea_main()
%>
<table width="99%" border=0>
<tr><td align=middle>
<table width="99%" border=0>
<tbody>
<tr>
<td width="15%"></td>
<td width="33%"></td>
<td width="1%"></td>
<td width="15%"></td>
<td width="33%"></td>
<td width="1%"></td></tr>
<%
dim i,ii:ii=0
sql="select * from jk_class where nsort='flea'"
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
response.write "<tr>"
for i=1 to 2
if rs.eof then exit for
response.write "<td><a href='flea_list.asp?c_id="&rs("c_id")&"'><img src='images/flea/"&ii&".gif' border=0></a></td>" & _
vbcrlf& "<td><table width='100%' border=0><tbody><tr>" & _
vbcrlf& "<td>【<a href='flea_list.asp?c_id="&rs("c_id")&"'>"&rs("c_name")&"</a>】</td></tr>" & _
vbcrlf& "<tr><td>"&joekoe_cms.code_html(rs("c_remark"),1,0)&"</td></tr>" & _
vbcrlf& "<tr><td align=right><a href='flea_list.asp?c_id="&rs("c_id")&"'>→查看更多信息</a></td></tr></tbody></table></td>" & _
vbcrlf& "<td></td>"
ii=ii+1
rs.movenext
next
response.write "</tr>" & _
vbcrlf& "<tr><td height=10></td></tr>"
loop
rs.close
%>
</tbody></table></td></tr>
<tr><td height=10></td></tr>
<tr><td align=middle>
<table width="98%">
<tbody>
<tr>
<td align=middle>
<fieldset style="width: 100%" align=center><legend>
<table style="border-right: #808080 1px solid; border-top: #808080 1px solid; border-left: #808080 1px solid; border-bottom: #808080 1px solid" cellspacing=0 cellpadding=0 width=200 border=0>
<tbody>
<tr><td valign=bottom align=middle height=18><font color=#ff0000><b>请您仔细阅读下面的郑重声明</b></font></td></tr>
</tbody></table></legend>
<table cellspacing=0 cellpadding=0 width="98%" align=right border=0>
<tbody>
<tr><td height=5></td></tr>
<tr>
<td class=htd>1、禁止发布含有色情和反动言论以及与国家法律法规相抵触的任何信息;禁止发布在网上对他人进行人身攻击评议的言论……等信息。
<br>2、信息发布者提供的信息必须是真实可靠的,不得有欺骗行为否则后果自负;每条信息的发布不得超过二百五十个字节;敬请不要进行重复发布。
<br>3、这里的信息发布是全免费的,<%response.write web_dim(1)%>对其不负任何的法律责任(由发布者自负责任敬请郑重),<%response.write web_dim(1)%>有选择和删除权。</td></tr>
<tr><td align=middle height=30>
<input onclick="location.href='user_put.asp?action=flea';" type=button value=同意以上声明,我要发布市场信息></td></tr>
<tr><td height=5></td></tr>
</tbody></table></fieldset>
</td></tr></tbody></table>
</td></tr></tbody></table>
<%
end sub
sub flea_put()
response.write "<table border=0 width='98%' cellspacing=0 cellpadding=4 align=center>" & _
vbcrlf& "<tr><td height=10 width='98%'></td></tr>" & _
vbcrlf& "<tr><td align=center><a href='user_put.asp?action=flea'><img src='images/flea/flea_put.gif' alt='发布我的交易信息' border=0></a></td></tr>" & _
vbcrlf& "<tr><td height=7 width='98%'></td></tr>" & _
vbcrlf& "</table>"
end sub
sub flea_view()
call joekoe_cms.exec("update flea set counter=counter+1 where id="&id,0)
sql="select * from flea where id="&id
set rs=joekoe_cms.exec(sql,1)
%>
<table cellspacing=1 cellpadding=4>
<tr><td class=bg_td align=center>
<table border=0 width='100%' class=tf>
<tr><td class=bw align=center><font size=3 class=blue><b><font class=red>[<%=rs("types")%>]</font><%response.write joekoe_cms.code_html(rs("name"),1,0)%></b></font></td></tr>
</table>
</td></tr>
<tr><td height=1 background='images/bg_dian.gif'></td></tr>
<tr><td class=bg_td align=center>
<table border=0 width='100%'>
<tr>
<td width='25%'><%response.write pic_fk(rs("pic"),2,"")%></td>
<td width='75%' valign=top>
<table border=0 width='98%' class=tf>
<tr><td class=bw><font class=htd><%response.write joekoe_cms.code_html(rs("remark"),2,0)%></font></td></tr>
</table>
<table border=0 width='98%'>
<tr><td height=30 align=right valign=bottom class=gray>(该信息已被浏览:<%=rs("counter")%>次)</td></tr>
</table>
</td>
</tr>
</table>
</td></tr>
<tr><td class=td> <%response.write img_skin(web_img_m)%>联系信息</td></tr>
<%
if var_null(login_username)="" then
response.write "<tr><td height=40 class=bg_td align=center>"&web_nologin&"</td></tr>"
else
%>
<tr><td class=bg_td align=right>
<table border=0 width='99%' class=tf>
<tr><td width='65%'>相关价格:<font class=red><%response.write rs("price")%></font></td>
<td width='35%' class=blue>发布时间:<%response.write joekoe_cms.time_type(rs("tim"),4)%></td>
</tr>
<tr><td>所 在 地:<%response.write joekoe_cms.code_html(rs("address"),2,5)%></td>
<td class=red>过期时间:<%response.write joekoe_cms.time_type(rs("otim"),4)%></td></tr>
<tr><td>联 系 人:<%response.write rs("nname")%> <font class=gray>发布人:<%response.write rs("username")%></font></td><td>联系电话:<%response.write rs("phone")%></td></tr>
<tr><td>电子邮件:<a href='mailto:<%response.write rs("email")%>'><%response.write rs("email")%></a></td><td>相关网址:<a href='<%response.write rs("url")%>'><%response.write rs("url")%></a></td></tr>
</table>
</td></tr>
<%end if%>
<tr><td class=td> <%response.write img_skin(web_img_m)%>给 <%response.write rs("username")%> 发短信</td></tr>
<%
if var_null(login_username)="" then
response.write "<tr><td height=40 class=bg_td align=center>"&web_nologin&"</td></tr>"
else
%>
<tr><td>
<%
if frm_chk() then
dim accept_u,topic,word,found_err,types,isread,sendname,user_on
accept_u=trim(request.form("accept_u"))
topic=trim(request.form("topic"))
word=trim(request.form("word"))
found_err=""
if true_accept(accept_u)=false then
found_err=found_err&"+您输入的 <font class=red>收 件 人</font> 为空或不存在!<br>"
end if
if topic="" or len(topic)>20 then
found_err=found_err&"+您输入的 <font class=red>短信主题</font> 为空或长度超过20!<br>"
end if
if word="" or len(word)>250 then
found_err=found_err&"+您输入的 <font class=red>短信内容</font> 为空或长度超过250!<br>"
end if
if found_err<>"" then
response.write vbcrlf&"<tr><td class=bg_td colspan=2 align=center height=200>" & _
found_error(found_err,250) & _
vbcrlf&"</td></tr>"
exit sub
end if
types=1
isread=0
sendname="发送"
sql="select top 1 l_username from user_login where l_username='"&accept_u&"'"
set rs=joekoe_cms.exec(sql,1)
if not rs.eof then
user_on=rs(0)
end if
rs.close
sql="select id,username from user_data where username='"&accept_u&"'"
set rs=joekoe_cms.exec(sql,1)
if user_on=rs(1) then application(joekoe_cms.web_cookies&"_"&rs(0))=rs(0)
rs.close
sql="insert into user_mail(send_u,accept_u,topic,word,tim,types,isread) " & _
"values ('"&login_username&"','"&accept_u&"','"&topic&"','"&word&"','"&joekoe_cms.now_time&"',"&types&","&isread&")"
call joekoe_cms.exec(sql,0)
call web_js_msg(1,"已成功"&sendname&"一条站内短信!","?id="&id&"")
exit sub
end if
%>
<table border=0 width='100%' cellspacing=0 cellpadding=4>
<form name=write_frm action='?action=<%response.write action%>&id=<%response.write id%>' method=post onsubmit="javascript:frm_submitonce(this);">
<input type=hidden name=chk value='yes'>
<input type=hidden name=send value=''>
<tr class=bg_td>
<td width='20%'>收 件 人:</td>
<td width='80%'>
<table border=0 cellspacing=0 cellpadding=0>
<tr><td><input type=text name=accept_u value='<%response.write rs("username")%>' size=30 maxlength=20><%response.write redx%><=20</td><td><%response.write friend_select()%></td>
</tr></table>
</td>
</tr>
<tr class=bg_tds>
<td>短信主题:</td>
<td><input type=text name=topic value='关于市场信息(<%response.write joekoe_cms.code_html(rs("name"),1,8)%>)' size=60 maxlength=20></td>
</tr>
<tr class=bg_td>
<td class=htd>短信内容:<br>EM贴图支持<br>UBB不支持<br>HTML不支持<br>长度<=250字节</td>
<td><textarea name=word rows=7 cols=60>有关您发的信息“<%response.write rs("name")%>”,我很感兴趣。请问怎么联系你最为方便!</textarea></td>
</tr>
<tr class=bg_tds>
<td colspan=2 align=center><%response.write jk_em("write_frm","word")%></td>
</tr>
<tr class=bg_td><td height=30 colspan=2 align=center><input type=submit value='发送短信'> <input type=reset value='重新填写'> <input type=button value='返回上页' onclick="javascript:history.back(1);"></td></tr>
</form></table>
<script language=javascript>
function do_accept(addaccept)
{
if (addaccept!="")
{ document.write_frm.accept_u.value=addaccept; }
}
</script>
</td></tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -