showmp.asp

主要功能是为大家提供一个免费的校园平台网站,有新闻发布、会员及管理、论坛

<!--#include file="inc/config.asp"-->
<!--#include file="mdb.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="inc/format.asp"-->
<%
dim founderr
founderr=false
if request.querystring("cs_id")="" then
  founderr=true
  Response.Write "<script language=javascript>alert('请指定操作的对象！');javascript:history.back();</script>"
else
  if not isInteger(request.querystring("cs_id")) then
    founderr=true
    Response.Write "<script language=javascript>alert('参数非法');javascript:history.back();</script>"
  end if
end if

sql="select * from coolsites where cs_id="&request.querystring("cs_id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
start=rs("cs_name")+"的 - 名片"
call head()
call menu()
Response.Write "<TABLE id=navsub cellSpacing=0 cellPadding=0 align=center><TBODY>" & vbCrLf
Response.Write "<TR><TD class=l></TD><TD class=m height=""25"">&nbsp; <a href='index.asp'>首 页</a> - <a href='web.asp'>学校名片</a>"
sql="select cscat_id,cscat_name from cscat where cscat_id="&rs("cscat_id")
set rs1=conn.execute(sql)
Response.Write " - <a href=""web.asp?cscat_id="&rs1("cscat_id")&""">"&rs1("cscat_name")&"</a>" 
rs1.close 

Response.Write "<TABLE id=middle cellSpacing=0 cellPadding=0 align=center boder=""0"">" & vbCrLf
Response.Write "<TBODY><TR vAlign=top bgcolor=""#FCFCFC""><TD>" & vbCrLf
Response.Write "<DIV class=mframe>" & vbCrLf
Response.Write "<SCRIPT type=text/javascript>lanyutable(""浏览名片"");</SCRIPT><table width=""100%"" align=""center"" cellspacing=""0"" cellpadding=""2""" & vbCrLf
Response.Write "style=""word-break:break-all;table-layout:fixed;text-align:left"" id=table1>" & vbCrLf
Response.Write "<tr><td height='100%'  align=center>" & vbCrLf
Response.Write "<table cellSpacing=0 cellPadding=0 width=368 bgColor=#e0dfdf border=0 id=table2>" & vbCrLf
Response.Write "<tr><td vAlign=top width=359 height=200>" & vbCrLf

Response.Write "<table height=200 cellSpacing=0 cellPadding=3 width=360 border=1 id=table3>" & vbCrLf
Response.Write "<tr borderColor=#000000>" & vbCrLf
Response.Write "<td background="&rs("cs_bg")&" bgColor=#ffffff>" & vbCrLf
Response.Write "<table height=182 width=98% align=center border=0 id=table4>" & vbCrLf
Response.Write "<tr><td width=100 rowSpan=2>" & vbCrLf
Response.Write "<img src="&rs("cs_xpic")&" width=80 height=75></td>" & vbCrLf
Response.Write "<td class=font-title height=50 align=center><b><font size=4>"&rs("cs_danwei")&"</font></b></td></tr>" & vbCrLf
Response.Write "<tr><td align=middle height=30>" & vbCrLf
Response.Write "<b><font size=5>"&rs("cs_name")&"</font></b>&nbsp;&nbsp;&nbsp;<b>"&rs("cs_zhwei")&"</b></td></tr>" & vbCrLf
Response.Write "<tr><td width=100 align=center valign=top></td>" & vbCrLf
Response.Write "<td vAlign=bottom height=86 style=font-size: 12px; font-family: Verdana, Arial, Helvetica, sans-serif>" & vbCrLf
Response.Write "电话："&rs("cs_dianha")&"<br>传真："&rs("cs_chuanzhen")&"<br>地址："&rs("cs_xdizhi")&"<br>电邮："&rs("cs_dianyu")&"</td></tr></table></td></tr></table></td><td valign=top>" & vbCrLf 
Response.Write "<img height=8 src=img/logo/dot.gif width=8></td></tr><tr>" & vbCrLf
Response.Write "<td height=2>" & vbCrLf
Response.Write "<img height=8 src=img/logo/dot.gif width=8></td></tr></table>" & vbCrLf
Response.Write "</td></tr><tr><td height=25>" & vbCrLf
Response.Write "</td></tr></table><tr><td vAlign=top style=text-align: align=center><table border=0 width=85% id=table9><tr><td>" & vbCrLf
Response.Write "<tr><td><strong>"&rs("cs_biaoti")&"</strong><hr align=left width=50% color=#000000 noShade SIZE=1>" & vbCrLf
Response.Write ""&rs("cs_jianjie")&"</td></tr></td></tr></table>" & vbCrLf
Response.Write "</TD><TD></TD></TR></TBODY></TABLE>" & vbCrLf


Response.Write "<table width='700' border='0' cellspacing='1' align='center' class='lanyubg'>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td height='48' bgcolor=""#FFFFFF"" Valign='TOP' style=""LINE-HEIGHT: 150%;padding: 5;"">" & vbCrLf

Response.Write "浏览指数："&rs("cs_count")&" 最后更新："&rs("cs_date")&"<BR>个人说明："&rs("cs_desc")&"<img border=0 src="&rs("cs_pic")&" width=274 height=199 align=left></td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "</table><BR>" & vbCrLf
response.write "&nbsp;&nbsp;<font color=red>声明</font>：本站部分图片来自网上收集，其版权归作者本人所有，如果有任何侵犯您权益的地方，请<a href='mailto:"&webmail&"' Title='给站长写信'><font color=green>联系我们</font></a>，我们将马上进行整理，谢谢。" & vbCrLf

Response.Write "<DIV class=mframe>" & vbCrLf
Response.Write "<SCRIPT type=text/javascript>lanyutable(""相关评论<font class='view'>"&rs("reviewcount")&"</font>篇,当前显示最新的<font class='view'>5</font>篇"");</SCRIPT>" & vbCrLf
Response.Write "<table width=""98%"" align=""center"" cellspacing=""0"" cellpadding=""0"" style=""word-break:break-all;table-layout:fixed;text-align:left"">"
if rs("review")<>"" then
temp=split(Trim(rs("review")),"|")
for i = 1 to 5
Response.Write "<tr><td style=""LINE-HEIGHT: 180%"">"&temp(i)&"</td></tr>"
next
else
Response.Write "<tr><td style=""LINE-HEIGHT: 180%"">当前没有评论</td></tr>"
end if

Response.Write "<tr><td align=""right""><a href=""view.asp?action=cs&cs_id="&rs("cs_id")&""">查看全部评论</a>&nbsp;&nbsp;</td></tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "<SCRIPT type=text/javascript>lanyutable(""发表评论"");</SCRIPT>" & vbCrLf
Response.Write "<form action=""viewsave.asp?action=cs&cs_id="&rs("cs_id")&""" method=""POST"" name=""form"" onsubmit=""return checkRemark();"">" & vbCrLf
Response.Write "<table width=""100%"" cellpadding=""5"" cellspacing=""0"" border=""0"">" & vbCrLf
Response.Write "<tr><td  align=""center""><input type=""radio"" value=""1"" name=""face"" checked>" & vbCrLf
Response.Write "        <img src=""img/mood1.gif"" tppabs="""" width=""15"" height=""15"">" & vbCrLf
Response.Write "        <input type=""radio"" value=""2"" name=""face"">" & vbCrLf
Response.Write "        <img src=""img/mood2.gif"" tppabs="""" width=""15"" height=""15"">" & vbCrLf
Response.Write "        <input type=""radio"" value=""3"" name=""face"">" & vbCrLf
Response.Write "        <img src=""img/mood3.gif"" tppabs="""" width=""15"" height=""15"">" & vbCrLf
Response.Write "        <input type=""radio"" value=""4"" name=""face"">" & vbCrLf
Response.Write "        <img src=""img/mood4.gif"" tppabs="""" width=""15"" height=""15"">" & vbCrLf
Response.Write "        <input type=""radio"" value=""5"" name=""face"">" & vbCrLf
Response.Write "        <img src=""img/mood5.gif"" tppabs="""" width=""15"" height=""15"">" & vbCrLf
Response.Write "        <input type=""radio"" value=""6"" name=""face"">" & vbCrLf
Response.Write "        <img src=""img/mood6.gif"" tppabs="""" width=""15"" height=""15"">" & vbCrLf
Response.Write "        <input type=""radio"" value=""7"" name=""face"">" & vbCrLf
Response.Write "        <img src=""img/mood7.gif"" tppabs="""" width=""15"" height=""15""> <br>" & vbCrLf
Response.Write "        <input type=""radio"" value=""8"" name=""face"">" & vbCrLf
Response.Write "        <img src=""img/mood8.gif"" tppabs="""" width=""15"" height=""15"">" & vbCrLf
Response.Write "        <input type=""radio"" value=""9"" name=""face"">" & vbCrLf
Response.Write "        <img src=""img/mood9.gif"" tppabs="""" width=""15"" height=""15"">" & vbCrLf
Response.Write "        <input type=""radio"" value=""10"" name=""face"">" & vbCrLf
Response.Write "        <img src=""img/mood10.gif"" tppabs="""" width=""15"" height=""15"">" & vbCrLf
Response.Write "        <input type=""radio"" value=""11"" name=""face"">" & vbCrLf
Response.Write "        <img src=""img/mood11.gif"" tppabs="""" width=""15"" height=""15"">" & vbCrLf
Response.Write "        <input type=""radio"" value=""12"" name=""face"">" & vbCrLf
Response.Write "        <img src=""img/mood12.gif"" tppabs="""" width=""15"" height=""15"">&nbsp;字数：<input type='text' value='0' id='reviewLen' size='2' style='border-width:0;background:transparent;'><font title='等于或小于255个字！'>≤255</font><br>" & vbCrLf
Response.Write "点评：<textarea name=""review"" cols=""54"" rows=""3"" onkeydown=""showLen(this)"" onkeyup=""showLen(this)""></textarea><br>" & vbCrLf
Response.Write "邮箱：<input type=""text"" name=""reviewemail"" value="""" maxlength=""25"" size=""27"" autocomplete=""off""/>" & vbCrLf
Response.Write "姓名：<input type=""text"" name=""reviewname"" value="""" maxlength=""25"" size=""20"" autocomplete=""off""/><br>" & vbCrLf
Response.Write "<input type=""submit"" name=""submit"" value=""发表"" onmouseover=""this.className='boton'"" onmouseout=""this.className='botoff'"" class=""botoff""> <input type=""reset"" value=""重填"" onmouseover=""this.className='boton'"" onmouseout=""this.className='botoff'"" class=""botoff""></td>" & vbCrLf
Response.Write "		<td width=""350"">" & vbCrLf
Response.Write "		<ul style=""list-style-type:square;margin-left:1em;line-height:180%"">" & vbCrLf
Response.Write "		<li>尊重网上道德，遵守中华人民共和国的各项有关法律法规</li>" & vbCrLf
Response.Write "		<li>承担一切因您的行为而直接或间接导致的民事或刑事法律责任</li>" & vbCrLf
Response.Write "		<li>本站管理人员有权保留或删除其管辖留言中的任意内容</li>" & vbCrLf
Response.Write "		<li>本站有权在网站内转载或引用您的评论</li>" & vbCrLf
Response.Write "		<li>参与本评论即表明您已经阅读并接受上述条款</li>" & vbCrLf
Response.Write "		</ul>" & vbCrLf
Response.Write "		</td></tr>" & vbCrLf
Response.Write "		</table>" & vbCrLf
Response.Write "        </form>"& vbCrLf
Response.Write "</div>" & vbCrLf
Response.Write "</TD>" & vbCrLf
Response.Write "</TR></TBODY></TABLE>"
set rscount=conn.execute("select * from coolsites")
sql="UPDATE coolsites SET cs_count = cs_count + 1 where cs_id="&request.querystring("cs_id")
conn.execute (sql)
rscount.close
set rscount=nothing
call footer()%>