📄 softdown.asp

📁 admin/admin.asp是WAP的后台管理登陆页面
💻 ASP
字号:
<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<!--#include file="conn.asp"-->
<!--#include file="char.asp"-->
<!--#include FILE="md5.asp"-->
<% Response.ContentType="text/vnd.wap.wml;charset=UTF-8" %>
<?xml version="1.0" encoding="utf-8"?><!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml"> 
<wml>
<head>
<meta http-equiv="Cache-Control" content="max-age=0"/>
<meta http-equiv="Cache-Control" content="no-cache"/>
</head>
<card title="&#x8F6F;&#x4EF6;&#x4E0B;&#x8F7D;">
<p>
<%
id=request("id")
cad=request("aid")
cbd=request("bid")
page=request("frompage")
sq="select * from article where articleid = "&id
Set Rs = Server.CreateObject("Adodb.Recordset")
rs.open sq,conn,1,2
%>
&#x540D;&#x79F0;:<%=c2u(rs("title"))%><br/>
&#x63CF;&#x8FF0;:<%=c2u(rs("content"))%><br/>
类型:<%
filetype=rs("dataname")
i=InStrRev(filetype,".")
l=Len(filetype)
If i>0 Then
  filetype=Right(filetype,l-i)
End If%>
<%=filetype%><br/>
&#x5927;&#x5C0F;:<%size=Round(rs("filesize")/1024,2)
If Left(size,1)="." Then size="0"&size
%>
<%=size%>KB
<br/>下载:<%=rs("hits")%>
<br/>上传人:<%=rs("writer")%>
<br/>&#x4E0A;&#x4F20;&#x65F6;&#x95F4;:<%=rs("dateandtime")%><br/>
<%RANDOMIZE
downmid=INT((9-0+1)*RND)
downmid=md5(downmid)
session("downmid")=downmid%>
<%if filetype="jpg" Or filetype="gif" Or filetype="jpeg" Or filetype="bmp" Or filetype="png"then%> <img src='soft_down.asp?id=<%=rs("articleid")%>&amp;n=<%=rs("dataname")%>&amp;downmid=<%=downmid%>' alt='load..'/><br/><%end if%>
<a href='soft_down.asp?id=<%=rs("articleid")%>&amp;n=<%=rs("dataname")%>&amp;downmid=<%=downmid%>'>&#x514D;&#x8D39;&#x4E0B;&#x8F7D;</a>
<% if session("shoujipno")=rs("shouji") then %>
|<a href='updel.asp?id=<%=rs("articleid")%>&amp;aid=<%=cad%>&amp;bid=<%=cbd%>&amp;shouji=<%=rs("shouji")%>'>删除</a>
<%end if%>
<% if session("flag")<>"" then %>
<% if session("flag")<3 then %>
|<a href='updel.asp?id=<%=rs("articleid")%>&amp;aid=<%=cad%>&amp;bid=<%=cbd%>'>删除</a>
<%end if%> 
<%end if%>
<br/>-------------<br/>
<a href='ping/ping.asp?classid=<%=rs("classid")%>&amp;nclassid=<%=rs("nclassid")%>&amp;articleid=<%=request("id")%>'>&#x8BC4;&#x8BBA;<% if rs("Nkey")<>"" then %>(<%=rs("Nkey")%>)<%else%>(0)<%end if%></a><br/>
<a href='lang.asp?classid=<%=cad%>&amp;nclassid=<%=cbd%>'>返回上级</a><br/>
<a href='index.asp'>网站首页</a> 
<%
rs.close
set rs=nothing
%></p>
</card>
</wml>
⌨️ 快捷键说明

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