📄 html_makeabhtml.asp

📁 破解版的企业网站源码！！绝对好用适合各种企业应用其中包包含产品展示企业介绍等等内容可供二次开发
💻 ASP
字号:
<%@ LANGUAGE = VBScript.Encode %>

<!--#include file="aspcs.asp"-->
<!--#include file="admin.ASP"-->
<!--#include file="you.asp"-->
<!--#include file="INC/HTMLPRODUCT.ASP"-->
<!--#include file="zcm.asp"-->
<%dim title
set rs_news=server.createobject("adodb.recordset")
sqltext4="select top 1 * from Bs_Sysdata"
rs_news.open sqltext4,conn,1,1	
title=rs_news("BsCompanyName")	
rs_news=nothing
rs_news.close


Response.Write "<Html>"
Response.Write "<Head>"
Response.Write "<Title>管理中心</title>"
Response.Write "<Meta Http-Equiv=""Content-Type"" Content=""Text/Html; CharSet=Gb2312"">"
Response.Write "<Link Type=""Text/Css"" Rel=""StyleSheet"" Href=""Images/style.css"">"
Response.Write "</Head>"
If Request("Page")<>"" Then
If Cint(Request("Page"))<1 Then
CurrentPage=1
Else
CurrentPage=Cint(Request("Page"))
End If
End If
Dim Rs1,Sql1,Moban
Moban=ljcms.ljmsn(12)
Moban1=Moban



dim ID
ID=trim(request("ID"))
FileID=request("ID")


sql="select * from Aboutus where ID in("&FileID&")"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
Do while not Rs.eof
		
HtmlFile="aboutus_"&Rs("ID")
HtmlFile=HtmlFile&".html"
strab="<table  width=100% border=0 cellspacing=0 cellpadding=0>"

strab=strab&"</table><table width=100% border=0 cellspacing=0 cellpadding=0>"

strab=strab&"<tr><td width=26>&nbsp;</td><td>"
strab=strab&""& rs("Content") &"</td><td width=26>&nbsp;</td></tr><tr><td>&nbsp;</td> </tr></table>"
	rs.update

	  Set rslist = Server.CreateObject("ADODB.Recordset")
sqllist="select * from Aboutus where language='1'"
rslist.open sqllist,conn,1,3
strAbclass=""
do while not rslist.eof
strAbclass=strAbclass&"<li class=Fs_KstdLi>·<a href=Aboutus_"& rslist("id") &".html target=_blank>"& rslist("Title") &"</b></a></li>"
             
rslist.movenext 
loop
rslist.close
set rslist=nothing

set rs_Product=server.createobject("adodb.recordset")
sqltext="select top 6 * from FriendLinks where linktype=2 and ISOK=true order by id desc"
rs_Product.open sqltext,conn,1,1
strleft=""
do while not rs_product.eof
strleft=strleft&"<li class=Fs_KstdLi>·<a href="& rs_Product("siteurl") &" target=_blank>"& rs_Product("sitename") &"</b></a></li>"
             
rs_product.movenext 
loop
rs_product.close
set rs_product=nothing

set rsRoot=server.createobject("adodb.recordset")
sql="select * From MenuClass where Depth=0 and ShowOnTop=True order by RootID"
rsRoot.open sql,conn,1,1
strtitle=""
do while not rsRoot.eof
ParentID=rsroot("classID")
		
strtitle=strtitle&"<li><a href="& rsroot("linkurl") &">"& rsroot("Classname") &"</a>"
strtitle=strtitle&"</strong><ul>"
set rsRoot1=server.createobject("adodb.recordset")
sql1="select * From MenuClass where Depth=1 and ShowOnTop=True and ParentID="& ParentID &" order by RootID"
rsRoot1.open sql1,conn,1,1
do while not rsRoot1.eof
strtitle=strtitle&"<li><a href="& rsroot1("linkurl")&">"& rsroot1("Classname")&"</a></li>"
RSROOT1.MOVENEXT
oy.rspc()
LOOP
RSROOT1=NOTHING
RSROOT1.CLOSE
strtitle=strtitle&"</ul>"
strtitle=strtitle&"</li>"
RSROOT.MOVENEXT
LOOP
RSROOT=NOTHING
RSROOT.CLOSE



Moban=Replace(Moban,"<!-strleft->",strleft)
Moban=Replace(Moban,"<!-strab->",strab)
Moban=Replace(Moban,"<!-strAbclass->",strAbclass)
Moban=Replace(Moban,"<!-strsearch->",strsearch)
Moban=Replace(Moban,"<!-strClassname->",strClassname)
Moban=Replace(Moban,"<!-strLogin->",strLogin)
Moban=Replace(Moban,"<!-strTitle->",strTitle)
Moban=Replace(Moban,"<!-Title->",Title)
Moban=Replace(Moban,"<!-strproduct->",strproduct)
ljcms.maprhtmls Moban,"Html/"&HtmlFile
Rs.Movenext
Loop

Response.Write "<body>"
Response.Write "·<font color=""#FF0000""><b>成功：生成Html企业信息页面文件成功，ID为["&Request("ID")&"]！</font></b>"
Response.Write "<script LANGUAGE=""JavaScript"">"
Response.Write "<!--"
Response.Write "setTimeout('window.close();', 600);"
Response.Write "// -->"
Response.Write "</script>"
Response.Write "</body>"

Rs1.Close 
Set Rs1=nothing 
Rs.Close
Set Rs=nothing
Conn.Close
Set Conn=nothing
Response.Write "</html>"
 %>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -