/bbs/bz_gl.asp代码页
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><?xml version="1.0" encoding="utf-8"?>
<%response.buffer=true%>
<%Response.ContentType = "text/vnd.wap.wml; charset=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><%
'====================================================================
' 请你保留这段说明，这并不会影响你的速度.   电脑交流:http://www.cnscu.cn
' 程序制作：横云			  掌上校园收倾心整理收集于互联网,感谢你的支持!
' 升级时间： 2008-2-5  		主页地址：HTTP://wap.cnscu.cn
' E-Mail: cnscu@126.com   	客服QQ:554904632 QQ群:30493504 QQ群2:46659883
'====================================================================
%> <head><meta http-equiv='Cache-Control' content='no-cache'/>
</head>
<card title="总版-编辑论坛">
<p>
<!--#include file="cnscucsb.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?cnscu=<%=cnscu%>&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?cnscu=" & cnscu & "&cw=1&cz=2&ltid="&ltid&""

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

if hyjg2="0" then response.redirect "bz_gl.asp?cnscu=" & cnscu & "&cw=3&cz=2&ltid="&ltid&""
if hyjg2<5 then response.redirect "bz_gl.asp?cnscu=" & cnscu & "&cw=7&cz=2&ltid="&ltid&""
if hyjg2>30 then response.redirect "bz_gl.asp?cnscu=" & cnscu & "&cw=8&cz=2&ltid="&ltid&""
if ltmybz1<>objgbrr("id") and ltmybz=objgbrr("id") then response.redirect "bz_gl.asp?cnscu=" & cnscu & "&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?cnscu=" & cnscu & "&cw=5&cz=2&ltid="&ltid&""
end if
%>
修改成功~！
<%
end if
%>

<br/>-----------<br/><a href="lt_list.asp?cnscu=<%=cnscu%>&amp;ltid=<%=ltid%>">回到论坛</a>
</p>
</card>
</wml>
相关源码
字母检索
回到顶部