📄 down.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
'============================================================
' 更新: 2007-12-10
' 主页: http://wap.twapp.cn
' 电邮: xivn@163.com
' Q Q : QQ:531233814
' 版权: 燃点真情All Rights Reserved.
'============================================================
%>
<%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='no-cache'/>
</head>
<card title="下载附件">
<p>
<!-- #include file="conn.inc" -->
<!-- #include file="ydzq.asp" -->
<%set rsnum4=Server.CreateObject("ADODB.Recordset")
rssnum4="select * from [twapp]"
rsnum4.open rssnum4,conn,1,1
if rsnum4("wjop")=1 then%>
<%browsers=Lcase(Left(Request.ServerVariables("HTTP_USER_AGENT"),4))
if browsers="oper" or browsers="winw" or browsers="wapi" or browsers="mc21" or browsers="up.b" or browsers="upg1" or browsers="upsi" or browsers="qwap" or browsers="jigs" or browsers="java" or browsers="alca" or browsers="wapj" or browsers="cdr/" or browsers="nec-" or browsers="fetc" or browsers="r380" or browsers="winw" or browsers="mozi" or browsers="mozi" or browsers="m3ga" then response.redirect"err.asp?cw=5&hk="&hk&""
end if
rsnum4.close
set rsnum4=nothing
Set rs = Server.CreateObject("ADODB.Recordset")
sql="Select downjb from ltjb where ID=1"
rs.open sql,conn,1,1
if not rs.eof then
dim downjb
downjb=rs("downjb")
END IF
rs.close
set rs=nothing
ID=request.querystring("id")
tid=request.querystring("tid")
if request.querystring("zc")="1" then
Set rs = Server.CreateObject("ADODB.Recordset")
sql="Select content from upfile where ID="&id
rs.open sql,conn,1,1
if rs.eof then
response.write"附件不存在或者已经删除<br/>"
ELSE
conn.execute("update Users Set myjb = myjb - "&downjb&" where ID="&myid)
response.redirect rs("content")
END IF
rs.close
set rs=nothing
else
response.write"注意:下载附件要用到"&downjb&"金币,确定下载吗？"
%>
<br/>
<a href="down.asp?tid=<%=tid%>&hk=<%=hk%>&id=<%=id%>&zc=1">是的,确定下载</a><br/>
<a href="bbs_view.asp?tid=<%=tid%>&hk=<%=hk%>">太黑了,先看再说</a><br/>
<%end if%>
------------<br/>
<a href="bbs_view.asp?tid=<%=tid%>&hk=<%=hk%>">返回主贴</a>
<!--#include file="fanhui.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -