union_infoedit.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="union_loginoff.asp"-->
<wml>
<%
Server.ScriptTimeout=999
dim unionid
unionid=request("unionid")
if IsEmpty(unionid) then
response.redirect "union_manage.asp"
end if	
set objgbrs=Server.CreateObject("ADODB.Recordset")
sql="select * from sites Where siteid='" & unionid &"'"
objgbrs.open sql,conn,1,1
%>
<card  title="编辑网站">
<p>
ID：<%=objgbrs("id")%><br/>
网站全名：<input name="newsitename<%=minute(time)%><%=second(time)%>" maxlength="10" value="<%=objgbrs("sitename")%>"/><br/>
网站简称：<input name="newsiteshortname<%=minute(time)%><%=second(time)%>" maxlength="4" value="<%=objgbrs("siteshortname")%>"/><br/>
网址：<input name="newurl<%=minute(time)%><%=second(time)%>" maxlength="50" value="<%=objgbrs("siteurl")%>"/><br/>
简介：<input name="newsiteabout<%=minute(time)%><%=second(time)%>" maxlength="200" value="<%=objgbrs("siteabout")%>"/><br/>


<anchor title="确定">[确定提交]
<go href="union_infosave.asp" method="post">
<postfield name="unionid" value="<%=unionid%>"/>
<postfield name="siteid" value="$(newsiteid<%=minute(time)%><%=second(time)%>)"/>
<postfield name="sitename" value="$(newsitename<%=minute(time)%><%=second(time)%>)"/>
<postfield name="siteshortname" value="$(newsiteshortname<%=minute(time)%><%=second(time)%>)"/>
<postfield name="siteurl" value="$(newurl<%=minute(time)%><%=second(time)%>)"/>
<postfield name="siteabout" value="$(newsiteabout<%=minute(time)%><%=second(time)%>)"/>
</go></anchor><br/>
*提醒：如果网址更改，贵站将自动隐藏。贵站必须重新通过审核，才能正常显示。
<br/><anchor>返回上页<prev/></anchor>
<br/><a href="union_psdedit.asp?unionid=<%=unionid%>">帐户管理</a>
<br/><a href="union_manage.asp?unionid=<%=unionid%>">管理首页</a>
<br/><a href='union_loginexit.asp'>安全退出</a>
<br/><a href='../index.asp'><%=mywapname%></a>
<br/><%=mywaphost%>
<br/>
</p>
</card>
</wml>

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