📄 bjtz.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="ydzq.asp"-->
<!--#include file="xxts.asp"-->
<%
page=request("page")
if page="" then page="1"
url=request("url")
bbsid=request("bbsid")
tid=request("tid")
set objgbrr=Server.CreateObject("ADODB.Recordset")
ssql="select * from bbstz where id="&tid
objgbrr.open ssql,conn,1,1
spname1=objgbrr("name")
spjg1=objgbrr("txt")
if objgbrr("fid")=myid then
%>
<%
bbsid=request("bbsid")
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%>
贴子标题：<br/>
<input name="spname<%=minute(now)%><%=second(now)%>" maxlength="500" value="<%=ubb(spname1)%>"/><br/>
贴子内容[支持UBB]：<br/>
<input name="spjj<%=minute(now)%><%=second(now)%>" title="贴子内容：" type="text" format="*M" emptyok="true" value="<%=ubb(spjg1)%>"/><br/>
<anchor title="确定修改">[确定修改]
<go href="bjtz.asp?hk=<%=hk%>&cz=1&tid=<%=tid%>&id=<%=id%>&url=<%=url%>&page=<%=page%>" method="post" accept-charset='utf-8'>
<postfield name="name1" value="$(spname<%=minute(now)%><%=second(now)%>)"/>
<postfield name="spjj1" value="$(spjj<%=minute(now)%><%=second(now)%>)"/>
</go>
</anchor>
<%end if%>
<%
if cz="1" then
'-----接收数据-----
tid=usb(request("tid"))
url=usb(request("url"))
name2=usb(request("name1"))
spjj2=usb(request("spjj1"))
'----识别错误并跳转-----
if name2="" then response.redirect "bjtz.asp?hk=" & hk & "&cw=1&cz=2&tid="&tid&""
if spjj2="" then response.redirect "bjtz.asp?hk=" & hk & "&cw=2&cz=2&tid="&tid&""
'---开始修改----
set rs=Server.CreateObject("ADODB.Recordset")
rspl="select * from bbstz where id="&tid
rs.open rspl,conn,1,2
if name2<>"" then rs("name")=name2
if spjj2<>"" then rs("txt")=spjj2+"[br]"&myni&"于"&now&"编辑过贴子"
rs.update
'---关闭数据----
rs.close
set rs=nothing
%>
成功编辑贴子
<%end if%>
<%else%>
您没有权利
<%end if%>
<br/>-----------<br/>
<a href="bbs_view.asp?hk=<%=hk%>&tid=<%=tid%>&page=<%=page%>">返回上级</a>
<!--#include file="fanhui.asp"-->
<%
conn.close
set conn=nothing%>
</p>
</card>
</wml>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -