shengchen.asp

一个综合类整站

<!--#include file="conn.asp"-->
<%
if session("china_admin")="" then
response.redirect "login.asp"
response.end
end if
type1=request("type")
if type1<>"show" and type1<>"news" then
response.write "<script>alert('参数错误码，立即返回！');history.back();</script>"  
response.end
end if
Server.ScriptTimeOut=30000
set rs=server.createobject("adodb.recordset")
if type1="show" then
rs.open "china_data",conn,1,1
end if
if type1="news" then
rs.open "news_data",conn,1,1
end if
if rs.bof and rs.eof then
response.write "<script>alert('没有任何信息，立即返回！');history.back();</script>"  
rs.close
set rs=nothing
conn.close
set conn=nothing
response.end
else
ServerURL=CStr(Request.ServerVariables("SCRIPT_NAME"))
n=InStrRev(ServerURL,"/") '从右边第一个字符起查找"_"的位置,n为返回值
ServerURL=left(ServerURL, n-1)'显示从左边数第"n-1"个字符前面的字符,
n=InStrRev(ServerURL,"/") '从右边第一个字符起查找"_"的位置,n为返回值
ServerURL=left(ServerURL, n)'显示从左边数第"n"个字符前面的字符,

''''''''''''''''''生成html开始''''''''''''''''''''''''''
if type1="show" then
do while not rs.eof
ServerURL1="http://"&Request.ServerVariables("SERVER_NAME")&""&ServerURL&"show.asp?id="&rs("adid")&""
set objfso = Server.CreateObject("Scripting.FileSystemObject") 
Set Mail1 = Server.CreateObject("CDO.Message")
Mail1.CreateMHTMLBody ServerURL1,31
AA=Mail1.HTMLBody
Set Mail1 = Nothing

set htmout = objfso.CreateTextFile(server.mappath("../html/"&rs("adid")&".htm")) 
AA=replace(AA,"adpic/","../adpic/") 
AA=replace(AA,"link.asp","../link.asp")
AA=replace(AA,"link_img.asp","../link_img.asp")
AA=replace(AA,"index.asp","../index.asp")
AA=replace(AA,"114/../index.asp","../114/index.asp")
AA=replace(AA,"ad.asp","../ad.asp")
AA=replace(AA,"TV.asp","../tv.asp")
AA=replace(AA,"user.asp","../user.asp")
AA=replace(AA,"gbook.asp","../gbook.asp")
AA=replace(AA,"city.asp","../city.asp")
AA=replace(AA,"post.asp","../post.asp")
AA=replace(AA,"city_more.asp","../city_more.asp")
AA=replace(AA,"reg.asp","../reg.asp")
AA=replace(AA,"login.asp","../login.asp")
AA=replace(AA,"search.asp","../search.asp")
AA=replace(AA,"114/join.asp","../114/join.asp")
AA=replace(AA,"fabu.asp","../fabu.asp")
AA=replace(AA,"type.asp","../type.asp")
AA=replace(AA,"show.asp","../show.asp")
AA=replace(AA,"114/qy../login.asp","../114/qylogin.asp")
AA=replace(AA,"rq_message.asp","../rq_message.asp")
AA=replace(AA,"top.asp","../top.asp")
AA=replace(AA,"money.asp","../money.asp")
AA=replace(AA,"pic.asp","../pic.asp")
AA=replace(AA,"bbs/","../bbs/")
AA=replace(AA,"html/","")
AA=replace(AA,"ip.asp","../ip.asp")
AA=replace(AA,"phone.asp","../phone.asp")
AA=replace(AA,"about.asp","../about.asp")
htmout.write replace(AA,"images/","../images/")
htmout.close  
set htmout=nothing  
set objfso=nothing 
rs.movenext
loop
end if
''''''''''''''''''生成html结束''''''''''''''''''''''''''
''''''''''''''''''生成新闻开始''''''''''''''''''''''''''
if type1="news" then
do while not rs.eof
ServerURL1="http://"&Request.ServerVariables("SERVER_NAME")&""&ServerURL&"news.asp?id="&rs("adid")&""
set objfso = Server.CreateObject("Scripting.FileSystemObject") 
Set Mail1 = Server.CreateObject("CDO.Message")
Mail1.CreateMHTMLBody ServerURL1,31
AA=Mail1.HTMLBody
Set Mail1 = Nothing

set htmout = objfso.CreateTextFile(server.mappath("../html/news/"&rs("adid")&".htm")) 
AA=replace(AA,"post.asp","../../post.asp") 
AA=replace(AA,"adpic/","../../adpic/") 
AA=replace(AA,"link.asp","../../link.asp")
AA=replace(AA,"link_img.asp","../../link_img.asp")
AA=replace(AA,"index.asp","../../index.asp")
AA=replace(AA,"114/../../index.asp","../../114/index.asp")
AA=replace(AA,"ad.asp","../../ad.asp")
AA=replace(AA,"TV.asp","../../tv.asp")
AA=replace(AA,"user.asp","../../user.asp")
AA=replace(AA,"gbook.asp","../../gbook.asp")
AA=replace(AA,"city.asp","../../city.asp")
AA=replace(AA,"city_more.asp","../../city_more.asp")
AA=replace(AA,"reg.asp","../../reg.asp")
AA=replace(AA,"login.asp","../../login.asp")
AA=replace(AA,"search.asp","../../search.asp")
AA=replace(AA,"114/join.asp","../../114/join.asp")
AA=replace(AA,"114/qy../../login.asp","../../114/qylogin.asp")
AA=replace(AA,"fabu.asp","../../fabu.asp")
AA=replace(AA,"type.asp","../../type.asp")
AA=replace(AA,"rq_message.asp","../../rq_message.asp")
AA=replace(AA,"top.asp","../../top.asp")
AA=replace(AA,"money.asp","../../money.asp")
AA=replace(AA,"pic.asp","../../pic.asp")
AA=replace(AA,"bbs/","../../bbs/")
AA=replace(AA,"html/news/","")
AA=replace(AA,"about.asp","../../about.asp")
htmout.write replace(AA,"images/","../../images/")
htmout.close 
set htmout=nothing  
set objfso=nothing  
rs.movenext
loop
end if
''''''''''''''''''生成新闻结束''''''''''''''''''''''''''
rs.close
set rs=nothing
conn.close
set conn=nothing
Server.ScriptTimeOut=60
response.write "<script>alert('生成成功，立即返回！');history.back();</script>"  
end if    

%>