sxzfws.asp
来自「短信销售类网站」· ASP 代码 · 共 178 行
ASP
178 行
<!--#include file="Inc/syscode.asp"-->
<!--#include file="Inc/Top.asp"-->
<!--#include file="top.asp"-->
<%
dim download
dim sql2,rs2
Set rs2=Server.CreateObject("ADODB.RecordSet")
sql2="select * from user where username='"&session("UserName") &"'"
rs2.Open sql2,conn,1,1
if rs2("download")=True then
else
response.write("<script>alert('您未登陆或无权察看');window.location=('hyzx.asp');</script>")
end if
rs2.movenext
rs2.close
set rs2=nothing
function cutstr(tempstr,tempwid)
if len(tempstr)>tempwid then
cutstr=left(tempstr,tempwid)&"..."
else
cutstr=tempstr
end if
end function%>
<%
ShowSmallClassType=ShowSmallClassType_Article
dim ID
ID=trim(request("ID"))
if Id="" then
response.Redirect("sxzfws.asp")
end if
sql="select * from Download where ID=" & ID & ""
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
if rs.bof and rs.eof then
response.write"<SCRIPT language=JavaScript>alert('找不到此产品！');"
response.write"javascript:history.go(-1)</SCRIPT>"
else
rs("Hits")=rs("Hits")+1
rs.update
if rs("hits")>=HitsOfHot then
rs("Hot")=True
rs.update
end if
BigClassName=rs("BigClassName")
SmallClassName=rs("SmallClassName")
%>
<%if not(rsBigClass.bof and rsBigClass.eof) and ShowSmallClassType="Menu" then response.write " onmousemove='HideMenu()'"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>纯真文化</title>
<META content=网站描述 name=description><LINK href="images/css.css"
type=text/css rel=stylesheet><LINK href="images/page_ccc.css" type=text/css
rel=stylesheet>
<style type="text/css">
<!--
.unnamed1 { FONT-SIZE: 12px; LINE-HEIGHT: 25px; FONT-FAMILY: "宋体"
}
.style1 {
font-size: 9px;
font-family: "黑体";
}
.style2 { color: #FF0000;
font-weight: bold;
}
-->
</style>
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
background-image: url(bj.jpg);
}
.unnamed1 { font-family: "宋体";
font-size: 12px;
line-height: 25px;
}
-->
</style>
</head>
<body>
<table width="1004" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td width="334" valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="1" bgcolor="#63676A"></td>
<td>
<!--#include file="left_ywzx.asp"-->
</td>
<td width="1" bgcolor="#63676A"></td>
</tr>
</table></td>
<td align="left" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/xzfw.gif" width="590" height="37"></td>
</tr>
<tr>
<td><table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="80%" valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<TR>
<TD width="391"
height=25>
<%
response.write "| <a href='xzfws.asp?BigClassName=" & rs("BigClassName") & "'>" & rs("BigClassName") & "</a> >> "
if rs("SmallClassName") & ""<>"" then
response.write "<a href='xzfws.asp?BigClassName=" & rs("BigClassName")&"&SmallClassName=" & rs("SmallClassName") & "'>" & rs("SmallClassName") & "</a> >> "
end if
response.write rs("Title")
%>
</TD>
<TD width="166"><div align="center"><a href="<%=rs("DownloadUrl")%>"><img src="Img/download.gif" width="85" height="25" border="0"></a></div></TD>
</TR>
<TR>
<TD
height=1 colspan="3" background=img/naBialym.gif><IMG height=1 src="img/1x1_pix.gif"
width=10></TD>
</TR>
<TR>
<TD height="1" colspan="3"><br> <%=rs("Content")%> </TD>
</TR>
<TR>
<TD
height=1 colspan="3" background=img/naBialym.gif><IMG height=1 src="img/1x1_pix.gif"
width=10></TD>
</TR>
<TR>
<TD
height=25><div align="right">点击数：<%=rs("Hits")%> <%= FormatDateTime(rs("UpdateTime"),2) %> </div></TD>
<TD
height=25><div align="center"><a href="<%=rs("DownloadUrl")%>"><img src="Img/download.gif" width="85" height="25" border="0"></a></div></TD>
</TR>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
<td width="1" background="images/index_r5_c1_r2_c1.jpg"></td>
</tr>
</table>
</body>
</html>
<%
end if
rs.close
set rs=nothing
call CloseConn()
%>
<!--#include file="bottom.asp"-->
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?