📄 show.asp
字号:
<%ttime=timer()%>
<!--#include file="dbpath.asp"-->
<%
Set rs= Server.CreateObject("ADODB.Recordset")
sql = "select * from down where id="&request("id")
rs.Open sql, Conn,1,2
if rs.eof then
error="此编号的程序不存在或已删除，请返回查找你需要的内容"
else
rs("hits").value = rs("hits").value + 1
rs.Update()
datetime=rs("date")
file=rs("file")
name=rs("name")
kk=rs("kk")
Ttype=rs("type")
note=rs("note")
hits=rs("hits")
ys=rs("ys")
end if
rs.close%>
<HTML><HEAD>
<TITLE>ASP下载特区_DownASP.com</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<style>
td{font-size:9pt;line-height:120%}
body{font-size:9pt;line-height:12pt}
A:link {color: #004080; text-decoration: none}
A:visited {color: #004080; text-decoration: none}
A:active {color: FF0000; text-decoration: none}
A:hover {color: FF0000; text-decoration: underline}
</style>
</HEAD>
<body bgcolor="#E6EBF0" topmargin="2">
<div align="center">
<center>
<table border="0" width="650" cellspacing="1" cellpadding="0" bgcolor="#000000">
<tr>
<td width="100%" bgcolor="#FFFFFF">
<table border="0" width="100%" cellspacing="0" cellpadding="2">
<tr>
<td width="180">
<p align="center"><a href="./"><img border="0" src="title.gif" width="160" height="60" alt="DownASP.com"></a></p>
</td>
<td width="470">
<p align="center"><script language="javaScript" type="text/javascript" SRC="http://www.cput.com/ads.js"></SCRIPT></p>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF"> <img border="0" src="homepage.gif"><a href="./">DownASP首页</a>
<a href="list.asp">ASP源代码下载</a>
<a target="_blank" href="http://www.tajh.net">程序定制</a>
<a target="_blank" href="http://bbs.99soft.com">论坛</a>
<a href="http://www.cput.com/other/gbook/index.asp?user=webgg" target="_blank">留言本</a></td>
</tr>
</table>
</center>
</div>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%"></td>
</tr>
</table>
<div align="center">
<center>
<table border="0" width="650" cellspacing="1" cellpadding="5" bgcolor="#000000" height="172">
<tr>
<td width="110" bgcolor="#FFFFFF" valign="top">
<table border="0" width="100%" cellspacing="1" cellpadding="0">
<tr>
<td width="100%" bgcolor="#F4F4F4">
<p align="center">ASP源代码分类</td>
</tr>
<tr>
<td width="100%">
<p align="center"><%if Ttype="" then%><font color="#FF0000">>> <%end if%><a href="list.asp">全部程序</a><%if Ttype="" then%> <<<%end if%></font></td>
</tr>
<%
sql="select * from type"
rs.open sql,conn,1,1
if not rs.eof then
do while not rs.eof
%>
<tr>
<td width="100%">
<p align="center"><%if rs("type")=Ttype then%><font color="#FF0000">>> <%end if%><a href="list.asp?type=<%=rs("type")%>"><%=rs("type")%></a><%if rs("type")=Ttype then%> <<<%end if%></font></td>
</tr>
<%
i=i+1
rs.movenext
loop
end if
rs.close%>
<tr>
<td width="100%"></td>
</tr>
</table>
</td>
<td width="540" bgcolor="#FFFFFF" valign="top" height="148">
<table border="0" width="100%" bgcolor="#000000" cellspacing="1" cellpadding="2">
<tr>
<td width="100%" bgcolor="#FFFFFF">
<table border="0" cellspacing="0" cellpadding="0">
<form method="POST" action="list.asp">
<tr>
<td nowrap>ASP源码查找：</td>
<td nowrap><select size="1" name="type">
<option value="搜索结果" selected>=不指定类别=</option>
<%
sql="select * from type"
rs.open sql,conn,1,1
if not rs.eof then
do while not rs.eof
%>
<option value="<%=rs("type")%>"><%=rs("type")%></option>
<%rs.movenext
loop
end if
rs.close%>
</select></td>
<td nowrap><input name="k" size="15"></td>
<td nowrap><input type="submit" value="搜索"></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="5">
<tr>
<td width="100%"></td>
</tr>
</table>
<%if error<>"" then%>
<table border="0" width="100%" height="100" cellspacing="0" cellpadding="0">
<tr>
<td width="100%">
<p align="center"><%=error%></p>
</td>
</tr>
</table>
<%else%>
<table bgColor="#000000" border="0" cellPadding="5" cellSpacing="1" style="BORDER-COLLAPSE: collapse" width="100%">
<tr>
<td class="shadow1" colSpan="4" width="100%" bgcolor="#EFEFEF"><b> <%=name%></b></td>
</tr>
<tr>
<td align="middle" bgColor="#efefef" width="15%">更新日期</td>
<td bgColor="#f7f7f7" width="35%"><%=datetime%></td>
<td align="middle" bgColor="#efefef" width="15%">程序演示</td>
<td bgColor="white" width="35%"><font color="#808080"><%if ys<>"" then%><a href="<%=ys%>" target="_blank"><%end if%>演示</font></a></td>
</tr>
<tr>
<td align="middle" bgColor="#efefef" width="15%">文件大小</td>
<td bgColor="white" width="35%"><%=kk%></td>
<td align="middle" bgColor="#efefef" width="15%">下载次数</td>
<td bgColor="white" width="35%"><%=hits%></td>
</tr>
<tr>
<td align="middle" bgColor="#efefef" width="15%">下载地址</td>
<td bgColor="#f7f7f7" colSpan="3" width="85%"><a href="<%=file%>"><%=file%></a></td>
</tr>
<tr>
<td bgColor="white" colSpan="4" width="100%">简介：<br><%=note%></td>
</tr>
</table>
<%end if%>
</td>
</tr>
</table>
</div>
<div align="center">
<table border="0" width="650" cellspacing="0" cellpadding="0">
<tr>
<td width="650" colspan="2"></td>
</tr>
<tr>
<td width="550" bgcolor="#000000">
<p> </td>
<td width="100" bgcolor="#000000"><a href="#top" target="_self"><img border="0" src="backtop.gif"></a></td>
</tr>
<tr>
<td width="650" colspan="2">
</td>
</tr>
</table>
</div>
<div align="center">
<center>
<table border="0" width="650" cellspacing="1" cellpadding="2" bgcolor="#000000">
<tr>
<td width="100%" bgcolor="#FFFFFF"><p align="center">页面执行时间:<%=FormatNumber((timer()-ttime)*1000,3)%>毫秒<script src="count/mystat.asp"></script>
<a target="_blank" href="http://www.tajh.net">下载本程序</a></p></td>
</tr>
</table>
</center>
</div>
</html>
<%
set rs=nothing
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -