📄 previewimg.asp

📁 多用户管理分权限发布、管理软件信息；　自由选择系统默认为静态HTML或动态ASP；　无限制添加下载服务器

💻 ASP

字号:

<!--#include file="conn.asp" -->
<!--#include file="inc/const.asp"-->
<%
Dim Rs, SQL, SoftID
If Not IsNumeric(Request("SoftID")) And Request("SoftID") <> "" Then
	Response.Write"错误的系统参数!ID必须是数字"
	Response.End
Else
	SoftID = CLng(Request.querystring("SoftID"))
End If
If SoftID <> "" Then
	Set rs = server.CreateObject("adodb.recordset")
	sql = "select SoftName,SoftVer,PreviewImg from NC_SoftInfo where SoftID="&SoftID
	rs.Open sql, conn, 1, 1
	If Not(rs.EOF And rs.bof) Then
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%= trim(rs("SoftName"))& " "& trim(rs("SoftVer")) %></title>
<style type="text/css">
<!--
.unnamed1 {
	font-size: 18px;
	line-height: 180%;
	font-weight: bold;
	color: #003399;
}
-->
</style>
</head>

<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td align="center" class="unnamed1"><%= trim(rs("SoftName"))& " "& trim(rs("SoftVer")) %> 的软件界面</td>
  </tr>
  <tr>
    <td align="center"><img src="<%= rs("PreviewImg") %>"></td>
  </tr>
</table>
</body>
</html>
<%
End If
rs.Close
Set rs = Nothing
End If

%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -