📄 softdown.asp

📁 admin/admin.asp是WAP的后台管理登陆页面

💻 ASP

字号:

<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<%
if session("admin")="" and session("flag")="" then
  response.redirect "admin.asp"
end if
%>
<!--#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/>
&#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>|<a href='updel.asp?id=<%=rs("articleid")%>&amp;aid=<%=cad%>&amp;bid=<%=cbd%>'>删除</a><br/>
-------------<br/>
<a href='uplist.asp?classid=<%=cad%>&amp;nclassid=<%=cbd%>'>返回上级</a><br/>
<a href='main.asp'>&#x7BA1;&#x7406;&#x9996;&#x9875;</a> 
</p>
</card>
</wml>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -