📄 wapls_up.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
'==================================
'=文 件 名：wapls_up.asp
'=适用版本：游戏天府WAP网站管理系统(CMS)V1.1
'=官方版权：http://www.wapls.com
'=文件功能：网站上部分
'=文件作者：游戏天府
'=发行时间：2007-02-01
'==================================
%>
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.2//EN" "http://www.wapforum.org/DTD/wml12.dtd">
<wml>
<head>
<meta http-equiv="Cache-Control" content="must-revalidate" forua="true"/>
<meta http-equiv="Cache-Control" content="no-cache" forua="true"/>
<meta http-equiv="Cache-Control" content="max-age=0" forua="true"/>
<meta http-equiv="Expires" content="0" forua="true"/>
<meta http-equiv="Pragma" content="no-cache" forua="true"/>
</head>
<!--#include file="wapls_conn.asp"-->
<!--#include file="Wapls_online.asp"-->
<%
dim sqlmb
Set rsmb=Server.CreateObject("Adodb.Recordset")
Sqlmb = "select * from wapls_mb where mb_id="&mb
rsmb.open sqlmb,conn,1,1
if not (rsmb.bof and rsmb.eof) then
mbcolumn=rsmb(3)
mblink=rsmb(6)
mb_err=rsmb("mb_err")
mb_user=rsmb("mb_user")
mb_Diary=rsmb("mb_Diary")
mb_gb=rsmb("mb_gb")
mb_logo=rsmb("mb_logo")
mb_search=rsmb("mb_search")
mb_other=rsmb("mb_other")
dim column
columnmb=split(mbcolumn,"|||@@@|||")
mb_news=columnmb(0)
mb_soft=columnmb(1)
mb_pic=columnmb(2)
mb_music=columnmb(3)
mb_atr=columnmb(4)
dim linkmb
linkmb=split(mblink,"|||@@@|||")
mb_link=linkmb(0)
mb_linksm=linkmb(1)
end if
Rsmb.close
set rsmb=nothing
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.cachecontrol = "no-cache"
Dim s
randomize timer
s=Int((8999)*Rnd +1000)
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -