invalidip_info.asp

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

<%@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="../data/conn.asp"-->
<!--#include file="loginoff.asp"-->
<wml>
<%
Server.ScriptTimeout=999

dim id,ip
id=request.querystring("id")
ip=id=request.querystring("ip")
if IsEmpty(id) then
response.redirect "invalidip_list.asp"
end if
set objgbrs=Server.CreateObject("ADODB.Recordset")
sql="select * from sites Where CStr(siteid)='" & id & "'"
objgbrs.open sql,conn,1,2
%>
<card  title="修改网站">
<p>
<a href="<%=objgbrs("siteurl")%>"><%=objgbrs("sitename")%></a><br/>
用户名：<input name="newsiteid<%=minute(objgbrs("lasttime"))%><%=second(objgbrs("lasttime"))%>" maxlength="10" value="<%=objgbrs("siteid")%>"/><br/>
站名：<input name="newsitename<%=minute(objgbrs("lasttime"))%><%=second(objgbrs("lasttime"))%>" maxlength="10" value="<%=objgbrs("sitename")%>"/><br/>
网址：<input name="newurl<%=minute(objgbrs("lasttime"))%><%=second(objgbrs("lasttime"))%>" maxlength="50" value="<%=objgbrs("siteurl")%>"/><br/>
简介：<input name="newsiteabout<%=minute(objgbrs("lasttime"))%><%=second(objgbrs("lasttime"))%>" maxlength="200" value="<%=objgbrs("siteabout")%>"/><br/>
总进站: <%=objgbrs("rc")%><br/>
总出站: <%=objgbrs("count")%><br/>
总赢取: <%=objgbrs("rc")-objgbrs("count")%><br/>
今日进站: <%=objgbrs("rc")-objgbrs("pv")%><br/>
最后进站: <%=(month(objgbrs("lasttime"))& "-"& day(objgbrs("lasttime"))& " "& hour(objgbrs("lasttime"))& ":"& minute(objgbrs("lasttime")))%><br/>
当前状态：
<select name="newbz<%=minute(objgbrs("lasttime"))%><%=second(objgbrs("lasttime"))%>" value="<%=objgbrs("IsView")%>">
<option value="t">正常显示</option>
<option value="f">隐藏显示</option>
</select><br/>

<anchor title="确定更改">[确定更改]
<go href="site_infosave.asp" method="post">
<postfield name="id" value="<%=objgbrs("id")%>"/>
<postfield name="siteid" value="$(newsiteid<%=minute(objgbrs("lasttime"))%><%=second(objgbrs("lasttime"))%>)"/>
<postfield name="sitename" value="$(newsitename<%=minute(objgbrs("lasttime"))%><%=second(objgbrs("lasttime"))%>)"/>
<postfield name="siteurl" value="$(newurl<%=minute(objgbrs("lasttime"))%><%=second(objgbrs("lasttime"))%>)"/>
<postfield name="siteabout" value="$(newsiteabout<%=minute(objgbrs("lasttime"))%><%=second(objgbrs("lasttime"))%>)"/>
<postfield name="IsView" value="$(newbz<%=minute(objgbrs("lasttime"))%><%=second(objgbrs("lasttime"))%>)"/>
</go></anchor><br/>
<anchor>[返回上页]<prev/></anchor>
<br/>
<a href='site_delcomfirm.asp?id=<%=objgbrs("id")%>&amp;<%=request.querystring("desc")%>'>[删除此站]</a></p>
</card>
</wml>

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