📄 config_flea.asp

📁 漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了页面底部的统计形式。 3、修改了“公告更新”栏目
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not(rs.eof and rs.bof) then
  rssum=rs.recordcount
end if
call format_pagecute()
%>
<table border=0 width='100%'>
<tr><td colspan=3 height=1 background='images/bg_dian.gif'></td></tr>
</td></tr>
<%
if int(viewpage)>1 then
  rs.move (viewpage-1)*nummer
end if
for i=1 to nummer
  if rs.eof then exit for
  nid=rs("id"):name=rs("name")
%>
<tr><td><%call web_site_type1()%></td></tr>
<tr><td height=1 background='images/bg_dian.gif'></td></tr>
<%
  rs.movenext
next
rs.close:set rs=nothing
%>
<tr><td bgcolor=#effbff height=30>
  <table border=0 width='100%' cellspacing=0 cellpadding=0>
  <tr align=center valign=bottom><td width='30%'>现在有<font class=red><%response.write rssum%></font>条信息┋每页<font class=red><%response.write nummer%></font>条</td>
  <td width='70%'>页次：<font class=red><%response.write viewpage%></font>/<font class=red><%response.write thepages%></font> 分页：<%response.write jk_pagecute(nummer,thepages,viewpage,pageurl,5,"#ff0000")%></td></tr>
  </table>
  <table border=0 width='100%' class=bg_2>
  <tr>
  <td width=2></td>
  <td class=red_2>说明：</td>
  <td width=5></td>
  <td><img border=0 src='images/small/IMAGE.GIF' align=absmiddle>&nbsp;有相关图片说明</td>
  <td align=right><%response.write img_small("jt13") %>&nbsp;联系方式以及部分功能要 <a href='login.asp?action=register'>注册</a> 并 <a href='login.asp'>登陆</a> 才可正常浏览和使用</td>
  <td width=2></td>
  </tr>
</table>
</table>
<%
end sub

sub web_site_type1()
%>
<table width='99%' cellspacing=0 cellpadding=0 border=1 bordercolor=#99CC33>
  <tr>
  <td class=td><b>&nbsp;<a href="flea_view.asp?c_id=<%response.write cid%>&s_id=<%response.write sid%>"><%response.write name%></a></b></td>
  <td class=td>&nbsp;发布时间：<%response.write time_type(rs("tim"),7)%></td>
  </tr>
  <tr><td colspan=2 align=center><table border=0 width='99%' class=bw><tr><td class=tf><font class=htd><%response.write code_html(rs("remark"),1,0)%></font></td></tr></table></td></tr>
  <tr><td colspan=2 class=bg_3 align=right>
  <table border=0 cellspacing=0 cellpadding=2>
  <tr>
    <td align=right>联系人：<%=rs("nname")%>&nbsp;电子邮件：<a href='mailto:<%=rs("email")%>?subject=我对你在<%response.write web_var(web_config,1)%>发布的<%response.write name%>信息感兴趣'><%=rs("email")%></a>&nbsp;电话：<%=rs("phone")%>&nbsp;</td>
    <td><font class=gray>[<a href="flea_view.asp?c_id=<%response.write cid%>&s_id=<%response.write sid%>">详细信息</a>]</font></td>
  </tr>
</table>
</table>
<%
end sub

sub flea_ck2()
  pageurl="?c_id="&cid&"&s_id="&sid&"&action="&action&"&"
  keyword=code_form(request.querystring("keyword"))
  sea_type=trim(request.querystring("sea_type"))
  call cid_sid_sql(2,sea_type)

sql="select * from business where hidden=1"&sqladd
select case action
case "counter"
  sql=sql&" order by counter desc,id desc"
case "tim"
  sql=sql&" order by tim desc"
case "id"
  sql=sql&" order by id"
case else
  sql=sql&" order by id desc"
end select

set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not(rs.eof and rs.bof) then
  rssum=rs.recordcount
end if
call format_pagecute()
%>
<table border=0 width='100%'>
<tr><td colspan=3 height=1 background='images/bg_dian.gif'></td></tr>
<tr><td align=center height=30>
  <table border=0 width='100%' cellspacing=0 cellpadding=0>
  <tr align=center valign=bottom><td width='30%'>现在有<font class=red><%response.write rssum%></font>条记录┋每页<font class=red><%response.write nummer%></font>个</td>
  <td width='70%'>页次：<font class=red><%response.write viewpage%></font>/<font class=red><%response.write thepages%></font> 分页：<%response.write jk_pagecute(nummer,thepages,viewpage,pageurl,5,"#ff0000")%></td></tr>
  </table>
</td></tr>
<tr><td height=1 background='images/bg_dian.gif'></td></tr>
<%
if int(viewpage)>1 then
  rs.move (viewpage-1)*nummer
end if
for i=1 to nummer
  if rs.eof then exit for
  nid=rs("id"):name=rs("name")
%>
<tr><td><%call web_site_type()%></td></tr>
<tr><td height=1 background='images/bg_dian.gif'></td></tr>
<%
  rs.movenext
next
rs.close:set rs=nothing
%>
</table>
<%
end sub

sub web_site_type()
%>
<TABLE cellSpacing=0 cellPadding=2 width="100%" border=0>
<TBODY>
<TR><TD align=middle bgColor=#effbff colSpan=2>
<TABLE class=tf width="100%" border=0>
<TBODY>
<TR><TD class=bw align=middle><FONT class=blue size=3><B><%response.write name%></B>
</FONT></TD></TR></TBODY></TABLE></TD></TR>
<TR><TD background="images/main/dian3.gif" colSpan=2 height=1></TD></TR>
<TR align=middle><TD width="40%">
<TABLE width="100%" border=0>
<TBODY>
<TR><TD height=1></TD></TR>
<TR><TD align=middle><img src='<% response.write upload_file&rs("pic") %>' border=0 width=<%response.write pic_width%> height=<%response.write pic_height%>></TD></TR>
<TR><TD height=1></TD></TR>
<TR><TD align=middle height=2>发布于：<%response.write time_type(rs("tim"),7)%></TD></TR>
<TR><TD height=1></TD></TR>
</TBODY></TABLE></TD>
<TD class=bg_2 vAlign=top width="60%">
<TABLE width="96%" border=0>
<TBODY>
<TR><TD><%response.write code_html(rs("remark"),1,0)%></TD></TR></TBODY></TABLE></TD></TR>
<TR><TD height=5></TD></TR>
<TR vAlign=bottom bgColor=#effbff height=22>
<TD>&nbsp;<%response.write img_small("jt13") %>&nbsp;<FONT class=blue><B>联系信息</B></FONT></TD>
<TD><%response.write img_small("jt13") %>&nbsp;<FONT class=blue><B>发送站内短信</B></FONT></TD></TR>
<TR><TD background="images/main/dian3.gif" colSpan=2 height=1></TD></TR>
<TR><TD class=bg_2 align=right><TABLE class=tf width="99%" border=0>
<TBODY>
<TR><TD class=bw height=18>相关价格：<FONT class=red_3><%=rs("price")%></FONT></TD></TR>
<TR><TD class=bw height=18>联 系 人：<%=rs("nname")%>&nbsp;&nbsp;</TD></TR>
<TR><TD class=bw height=18>联系电话：<%=rs("phone")%></TD></TR>
<TR><TD class=bw height=18>电子邮件：<a href='mailto:<%=rs("email")%>?subject=我对你在<%response.write web_var(web_config,1)%>发布的<%response.write name%>信息感兴趣'><%=rs("email")%></a></TD></TR>
<TR><TD class=bw height=18>相关网址：<a href='<%=rs("url")%>' target=_blank><%=rs("url")%></TD></TR></TBODY></TABLE></TD>
<TD class=bg_2>
<TABLE cellSpacing=0 cellPadding=2 width="100%" border=0>
<FORM name=mail_frm onsubmit=""javascript:frm_submitonce(this);"" action=user_message.asp?action=write method=post target=_blank>
<INPUT type=hidden value=ok name=write_ok> 
<INPUT type=hidden name=send_later> 
<INPUT type=hidden value=<%=rs("nname")%> name=accept_u> 
<TBODY>
<TR><TD>短信主题：</TD>
<TD><INPUT maxLength=20 size=38 name=topic></TD></TR>
<TR><TD>短信内容：<BR><BR>250字内</TD>
<TD><TEXTAREA onkeydown=""javascript:frm_quicksubmit();"" title="短信内容最多250个字符" name=word rows=4 cols=38></TEXTAREA></TD></TR>
<TR><TD>发送短信：</TD>
<TD height=30><INPUT type=submit value=发送短信 name=wsubmit>&nbsp;&nbsp;<INPUT onclick=javascript:mail_send_later(); type=submit value=保存短信 name=send>&nbsp;&nbsp;<INPUT type=reset value=清除重写></TD></TR></FORM></TBODY></TABLE></TD></TR>
</TBODY></TABLE>
</TD></TR>
<%
end sub

sub business_left()
  dim temp1
  temp1=vbcrlf&"<table border=0 width='98%' cellspacing=0 cellpadding=4 align=center>" & _
	vbcrlf&"<tr><td height=5 width='98%'></td></tr>" & _
	vbcrlf&"<tr><td colspan=2 align=left><table border=0 width='98%'>" & _
	vbcrlf&"<tr><td>　　请您遵守中华人民共和国有关法律、法规；</td></tr>" & _
	vbcrlf&"<tr><td>　　尊重网上道德并遵守诚实信用原则；</td></tr>" & _
	vbcrlf&"<tr><td>　　请勿发表与本站栏目内容无关的话题和不法言论。</td></tr>" & _
	vbcrlf&"<tr><td><a href='user_put.asp?action=business'><img src='images/flea/flea_put.gif' title='发布我的交易信息' border=0></a>" & _
	vbcrlf&"</table></td></tr>" & _	
	vbcrlf&"</td></tr></table>"
  response.write "<table width='99%' align=center><tr><td align=center>"&format_bar("<font class=end><b>栏目公告</b></font>",temp1,13,2,"",web_var(web_color,6)&"|","")&"</td></tr></table>"
end sub

sub flea_sousuo()
%>
<TABLE width="100%" border=0>
<TBODY>
<TR>
<TD class=bg_2 vAlign=bottom align=middle height=25>
<TABLE width="100%" border=0>
<TBODY>
<TR align=middle>
<TD><A href="flea_list.asp?c_id=32&s_id=72">电脑设备</A></TD>
<TD><A href="flea_list.asp?c_id=32&s_id=78">通讯工具</A></TD>
<TD><A href="flea_list.asp?c_id=32&s_id=79">人才信息</A></TD>
<TD><A href="flea_list.asp?c_id=32&s_id=80">家政服务</A></TD>
<TD><A href="flea_list.asp?c_id=32&s_id=388">爱心求助</A></TD>
<TD><A href="flea_list.asp?c_id=32&s_id=389">商家信息</A></TD>
<TD><A href="flea_list.asp?c_id=32&s_id=390">房屋租赁</A></TD>
<TD><A href="flea_list.asp?c_id=32&s_id=391">交通工具</A></TD>
<TD><A href="flea_list.asp?c_id=32&s_id=392">二手信息</A></TD>
<TD><A href="flea_list.asp?c_id=32&s_id=393">其它信息</A></TD>
</TR></TBODY></TABLE></TD></TR>
<TR><TD background="images/main/dian3.gif" height=1></TD></TR>
<TR><TD align=middle bgColor=#effbff height=30>
<TABLE cellSpacing=0 cellPadding=2 width="100%" border=0>
<TBODY><TR align=middle>
<TD><A href="flea_list.asp?">【所有信息】</a></TD>
<TD>关键字：</TD>
<form action='flea_view.asp?' method=get>
<input type=hidden name=action value='<%response.write action%>'>
<input type=hidden name=c_id value='<%response.write cid%>'>
<input type=hidden name=s_id value='<%response.write sid%>'>
<input type=hidden name=page value='<%response.write viewpage%>'>
<TD><input type=text name=keyword value='<%response.write keyword%>' size=28 maxlength=28></TD>
<TD><SELECT name=sea_type size=1> 
<option value='name'<%if sea_type="'name" then response.write " selected"%>>按名称</option>
<option value='remark'<%if sea_type="remark" then response.write " selected"%>>按说明</option>
<option value='username'<%if sea_type="username" then response.write " selected"%>>按发布人</option>
<option value='nname'<%if sea_type="nname" then response.write " selected"%>>按联系人</option>
<option value='phone'<%if sea_type="phone" then response.write " selected"%>>按电话</option>
<option value='email'<%if sea_type="email" then response.write " selected"%>>按电子邮件</option>
</SELECT></TD>
<TD><SELECT name=s_id>
<OPTION class=gray value="" selected>所有信息</OPTION> 
</SELECT></TD>
<td>&nbsp;<input type=submit value='搜 索'></td></FORM></TR></TBODY></TABLE></TD></TR>
<%
end sub
%>
上一页 12
💿 文件大小 8128 K
👤 上传用户 qqpp2q
📂 所属分类其他书籍
🏷️ 相关标签

#修改 #v11 #BUG #企业网站
⌨️ 快捷键说明

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