msg_edit.asp

7k书城小偷程序。。。。。。。。。。。。。。。。。。。。。

<%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="../data/conn.asp"-->
<!--#include file="loginoff.asp"-->
<wml>
<%
Server.ScriptTimeout=999
dim id
id=request("id")
if IsEmpty(id) then
response.redirect "site_manage.asp"
end if	
set objgbrs=Server.CreateObject("ADODB.Recordset")
sql="select * from message Where msgid=" & id 
objgbrs.open sql,conn,1,1
%>
<card  title="修改公告">
<p>
标题：<input name="newmsgtitle<%=minute(time)%><%=second(time)%>" maxlength="40" value="<%=untowide(objgbrs("msgtitle"))%>"/><br/>
内容：<input name="newmsgbody<%=minute(time)%><%=second(time)%>"  value="<%=outhtm(objgbrs("msgbody"))%>"/><br/>
当前状态：
<select name="newIsViewMsg<%=minute(time)%><%=second(time)%>" value="<%=Abs(CInt(objgbrs("IsViewMsg")))%>">
<option value="1">正常显示</option>
<option value="0">隐藏显示</option>
</select><br/>
<anchor title="确定更改">[确定更改]
<go href="msg_save.asp" method="post">
<postfield name="msgtitle" value="$(newmsgtitle<%=minute(time)%><%=second(time)%>)"/>
<postfield name="msgbody" value="$(newmsgbody<%=minute(time)%><%=second(time)%>)"/>
<postfield name="IsViewMsg" value="$(newIsViewMsg<%=minute(time)%><%=second(time)%>)"/>
<postfield name="id" value="<%=id%>"/>
</go></anchor><br/>
--------<br/>
<a href="msg_del.asp?id=<%=id%>">[删除此公告]</a>
<br/>
<anchor>[返回上页]<prev/></anchor>
<br/>
<a href="site_manage.asp">[管理中心]</a><br/>
<a href="<%=mywaphome%>">[<%=mywapname%>]</a><br/>
<a href="loginexit.asp">[安全退出]</a><br/>
<%=mywaphost%><br/><%=mywapcatchword%>
</p>
</card>
</wml>

<%
objgbrs.close
set objgbrs=nothing
conn.close
set conn=nothing
%>