📄 bz_gl.asp

📁 wap系统程序源码用户名密码:admin
💻 ASP
字号:
<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<%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"> 
<!--#include file="conn.inc"-->
<wml>
<head><meta http-equiv='Cache-Control' content='no-cache'/>
</head>
<card title="总版-编辑论坛">
<p>
<!--#include file="66hcsb.asp"-->
<%
ltid=request("ltid")
ltidbbzz=request("ltid")
set objgbrr=Server.CreateObject("ADODB.Recordset")
  ssql="select * from sclt where cstr(id)="&ltid
  objgbrr.open ssql,conn,1,1
spname1=objgbrr("name")
shuo1=objgbrr("shuo")
logo1=objgbrr("ltlogo")
pag1=objgbrr("pag")
%>
<%
cw=request("cw")
cz=request("cz")
if cz="" or cz="2"then
%>
<%if cw="1" then%>
错误：论坛简介不能为空！<br/>
<%end if%>
<%if cw="2" then%>
错误：帖子分页数不能为空！<br/>
<%end if%>
<%if cw="3" then%>
错误：帖子分页数不能为零！<br/>
<%end if%>
<%if cw="4" then%>
副版，偶知道你很想转正，但是也不能越权啊！<br/>
<%end if%>
<%if cw="5" then%>
举起手来，你呀呀滴怎么来滴！<br/>
<%end if%>
<%if cw="8" then%>
分页数太多了，尽量不要那么大！建议在10~30帖之间<br/>
<%end if%>
<%if cw="7" then%>
分页数太少了，尽量不要那么少！建议在10~30帖之间<br/>
<%end if%>
论坛介绍：<br/>
<input name="spname<%=minute(now)%><%=second(now)%>" maxlength="500" value="<%=ubb(shuo1)%>"/><br/>
论坛LOGO[不显示留空]：<br/>
<input name="spjg<%=minute(now)%><%=second(now)%>" title="论坛LOGO：" type="text" format="*M" emptyok="true" maxlength="500" value="<%=logo1%>"/><br/>
帖子分页数：
<input name="hyjg<%=minute(now)%><%=second(now)%>" size="2" format="*N" value="<%=pag1%>"/><br/>
<anchor title="确定修改">[确定修改]
<go href="bz_gl.asp?glsb=<%=glsb%>&amp;cz=1&amp;ltid=<%=ltid%>" method="post" accept-charset='utf-8'>
<postfield name="name1" value="$(spname<%=minute(now)%><%=second(now)%>)"/>
<postfield name="spjg1" value="$(spjg<%=minute(now)%><%=second(now)%>)"/>
<postfield name="hyjg1" value="$(hyjg<%=minute(now)%><%=second(now)%>)"/>
</go>
</anchor>
<%end if%>
<%
if cz="1" then
'-----接收数据-----
name2=usb(request("name1"))
spjg2=usb(request("spjg1"))
if spjg="" then spjg="http://"
hyjg2=usb(request("hyjg1"))

'----识别错误并跳转-----
if name2="" then response.redirect "bz_gl.asp?glsb=" & glsb & "&cw=1&cz=2&ltid="&ltid&""

if hyjg2="" then response.redirect "bz_gl.asp?glsb=" & glsb & "&cw=2&cz=2&ltid="&ltid&""

if hyjg2="0" then response.redirect "bz_gl.asp?glsb=" & glsb & "&cw=3&cz=2&ltid="&ltid&""
if hyjg2<5 then response.redirect "bz_gl.asp?glsb=" & glsb & "&cw=7&cz=2&ltid="&ltid&""
if hyjg2>30 then response.redirect "bz_gl.asp?glsb=" & glsb & "&cw=8&cz=2&ltid="&ltid&""
if ltmybz1<>objgbrr("id") and ltmybz=objgbrr("id") then response.redirect "bz_gl.asp?glsb=" & glsb & "&cw=4&cz=2&ltid="&ltid&""
if ltmybz1=objgbrr("id") and ltmybz=objgbrr("id") then 
'---开始修改----
set rs=Server.CreateObject("ADODB.Recordset")
rspl="select * from sclt where cstr(id)="&ltid
rs.open rspl,conn,1,2
if name2<>"" then rs("shuo")=name2
if spjg2<>"" then rs("ltlogo")=spjg2
if hyjg2<>"" then rs("pag")=hyjg2
rs.update
'---关闭数据----
rs.close
set rs=nothing
else
response.redirect "bz_gl.asp?glsb=" & glsb & "&cw=5&cz=2&ltid="&ltid&""
end if
%>
修改成功~！
<%
end if
%>

<br/>-----------<br/><a href="lt_list.asp?glsb=<%=glsb%>&amp;ltid=<%=ltid%>">回到论坛</a>
</p>
</card>
</wml>
⌨️ 快捷键说明

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