📄 html_makeprhtml.asp
字号:
<!--#include file="INC/HTMLPRODUCT.ASP"--><!--#include file="admin.ASP"-->
<%
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=3 "
Set Rs1=Conn.Execute (Sql1)
Moban=Rs1("Mb")
Moban1=Moban
ShowSmallClassType=ShowSmallClassType_Article
dim ID
ID=trim(request("ID"))
FileID=request("ID")
sql="select * from Product where ID in("&FileID&")"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
Do while not Rs.eof
Title=""&rs("title")&""
HtmlFile="Product_"&Rs("ID")
HtmlFile=HtmlFile&".html"
rs("Hits")=rs("Hits")+1
rs.update
sql1="select * from bigclass where bigclassname='" & rs("BigClassName") & "'"
Set rs1= Server.CreateObject("ADODB.Recordset")
rs1.open sql1,conn,1,3
strshow="<table width=100% border=0 cellspacing=0 cellpadding=0>"
strshow=strshow&"<TR>"
strshow=strshow&"<TD width=452 height=25>"
strshow=strshow&" <a href='list_" & rs1("BigClassid") & "_1.html'>" & rs("BigClassName") & "</a> >> "
if rs("SmallClassName") & ""<>"" then
sql2="select * from smallclass where smallclassname='" & rs("smallClassName") & "'"
Set rs2= Server.CreateObject("ADODB.Recordset")
rs2.open sql2,conn,1,3
strshow=strshow&"<a href='slist_" & rs2("SmallClassid") & "_1.html'>" & rs("SmallClassName") & "</a> >> "
end if
strshow=strshow&""& rs("Title") &"</td>"
strshow=strshow&"<TD width=98><a href=Payment.asp?Product_Id="& rs("Product_Id") &",target=_blank><img border=0 src=../Images/inquire_now.gif width=86 height=21></a></TD></TR><TR><TD height=1 colspan=3 background=../img/naBialym.gif><IMG height=1 src=../img/1x1_pix.gif width=10></TD>"
strshow=strshow&"</TR><TR><TD height=237 colspan=3><table width=90% border=0 align=center cellpadding=0 cellspacing=0>"
strshow=strshow&"<tr><td height=21 colspan=3> </td></tr><tr>"
fileExt=lcase(getFileExtName(rs("DefaultPicUrl")))
strshow=strshow&"<td width=44% rowspan=5><font color=#FF6600> </font><font color=#FF6600> </font>"
if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then
strshow=strshow&"<a href=../"& rs("DefaultPicUrl")&" target=_blank><img style=BORDER-LEFT-COLOR: #cccccc; BORDER-BOTTOM-COLOR: #cccccc; BORDER-TOP-COLOR: #cccccc; BORDER-RIGHT-COLOR: #cccccc src=../"& rs("DefaultPicUrl")&" width=200 height=200></a>"
else
if fileext="swf" then
strshow=strshow&"<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0' width='200' height='200'>"
strshow=strshow&"<param name=movie value='"& rs("DefaultPicUrl") &"'>"
strshow=strshow&"<param name=quality value=high>"
strshow=strshow&"<param name='Play' value='-1'>"
strshow=strshow&"<param name='Loop' value='0'>"
strshow=strshow&"<param name='Menu' value='-1'>"
strshow=strshow&"<embed src='"& rs("DefaultPicUrl") &"' width='200' height='200' pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash' ></embed>"
strshow=strshow&"</object>"
end if
end if
strshow=strshow&"</td>"
strshow=strshow&"<td height=39><div align=right>产品编号：</div></td>"
strshow=strshow&"<td height=40><font color=#FF6600><strong>"& rs("Product_Id") &"</strong></font></td>"
strshow=strshow&"</tr>"
strshow=strshow&"<tr>"
strshow=strshow&"<td width=15% height=39><div align=right>产品名称：</div></td>"
strshow=strshow&"<td width=41% height=40><font color=#FF6600><strong>"& rs("title") &"</strong></font></td>"
strshow=strshow&"</tr>"
strshow=strshow&"<tr>"
strshow=strshow&"<td height=31><div align=right>规 格：</div></td>"
strshow=strshow&"<td height=40><font color=#FF6600><strong>"& rs("Spec")&"</strong></font></td>"
strshow=strshow&"</tr><tr><td height=29><div align=right>产品备注：</div></td>"
strshow=strshow&"<td height=40><font color=#FF6600><strong>"& rs("Memo")&"</strong></font></td>"
strshow=strshow&"</tr><tr><td height=31><div align=right>产品类别：</div></td>"
strshow=strshow&"<td height=40><font color=#FF6600><strong>"& rs("BigClassName")&"</strong></font></td>"
strshow=strshow&"</tr><tr><td height=9 colspan=3> </td></tr></table></TD></TR><TR>"
strshow=strshow&"<TD class=title_right height=37 colspan=3> <img src=../Images/smallbook.jpg width=10 height=10>"
strshow=strshow&" 产 品 说 明 </TD></TR><TR><TD height=1 colspan=3> <table width=95% border=0 align=center cellpadding=0 cellspacing=0><tr>"
strshow=strshow&"<td>"& rs("content") &"</td></tr></table></TD></TR><TR><TD height=1 colspan=3 background=../img/naBialym.gif><IMG height=1 src=../img/1x1_pix.gif width=10></TD> </TR><TR> "
strshow=strshow&"<TD height=25>点击数："&rs("Hits")&" 录入时间："& FormatDateTime(rs("UpdateTime"),2) &" 【<a href='javascript:window.print()'>打印此页</a>】 【<a href=javascript:self.close()>关闭</a>】</TD>"
strshow=strshow&"<TD height=25><a href=Payment.asp?Product_Id="&rs("Product_Id")&",target=_blank><img border=0 src=../Images/inquire_now.gif width=86 height=21></a></TD></TR></table></td>"
strshow=strshow&"</tr>"
strshow=strshow&"</table></td></tr></table></td></tr></table>"
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
LOOP
RSROOT1=NOTHING
RSROOT1.CLOSE
strtitle=strtitle&"</ul>"
strtitle=strtitle&"</li>"
RSROOT.MOVENEXT
LOOP
RSROOT=NOTHING
RSROOT.CLOSE
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
Moban=Replace(Moban,"<!-strleft->",strleft)
Moban=Replace(Moban,"<!-strshow->",strshow)
Moban=Replace(Moban,"<!-strsmallclass->",strsmallclass)
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("Html/"&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 + -