📄 enhtml_makeabhtml.asp

📁 破解版的企业网站源码！！绝对好用适合各种企业应用其中包包含产品展示企业介绍等等内容可供二次开发
💻 ASP
字号:
<!--#include file="INC/HTMLenPRODUCT.ASP"--><!--#include file="admin.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("BsenCompanyName")	
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

Set Rs1=Server.CreateObject("ADODB.RecordSet")
Sql1 ="Select Mb From Moban where ID=24 "
Set Rs1=Conn.Execute (Sql1)
Moban=Rs1("Mb")
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&"<tr><td class=title_right height=32>&nbsp;&nbsp;&nbsp;<img src=../Images/smallbook.jpg width=10 height=10>&nbsp;&nbsp;"& rs("Title") &"</td>"
strab=strab&"</tr></table><table width=100% border=0 cellspacing=0 cellpadding=0><tr><td width=3% height=34 rowspan=3>&nbsp;</td>"

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

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

set rsRoot=server.createobject("adodb.recordset")
sql="select * From enMenuClass 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 enMenuClass 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
LOOP
RSROOT1=NOTHING
RSROOT1.CLOSE
strtitle=strtitle&"</ul>"
strtitle=strtitle&"</li>"
RSROOT.MOVENEXT
LOOP
RSROOT=NOTHING
RSROOT.CLOSE




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)

Set Fso=Server.CreateObject("Scripting.FileSystemObject")  '创建fso对象
Set Fout=Fso.CreateTextFile(server.mappath("enHtml/"&HtmlFile))
Fout.WriteLine Moban
Moban=Moban1
Rs.Movenext
Loop
Fout.Close
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 + -