📄 toppichtml.asp

📁 网吧影印系统！很详细！可直接使用！请大家指点！
💻 ASP
字号:
<!--#include file="../checkpost.asp"-->
<!--#include file="security.asp"-->
<!--#include file="articleconn.asp"-->
<!--#include file="zcm.asp"-->
<%if session("flag")>3 then
    response.write "<br><p align=center>您的操作权限不够！</p>"
    response.end
end if
%>
<%
zj=Request.ServerVariables("SERVER_NAME")
zj=left(replace(zj,"www.",""),6)
zj=replace(zj,"0","a")
zj=replace(zj,"1","b")
zj=replace(zj,"2","c")
zj=replace(zj,"3","d")
zj=replace(zj,"4","e")
zj=replace(zj,"5","f")
zj=replace(zj,"6","g")
zj=replace(zj,"7","h")
zj=replace(zj,"8","i")
zj=replace(zj,"9","j")
zj=replace(zj,"a","40")
zj=replace(zj,"b","41")
zj=replace(zj,"c","52")
zj=replace(zj,"d","53")
zj=replace(zj,"e","64")
zj=replace(zj,"f","65")
zj=replace(zj,"g","76")
zj=replace(zj,"h","77")
zj=replace(zj,"i","88")
zj=replace(zj,"j","89")
zj=replace(zj,"k","20")
zj=replace(zj,"l","21")
zj=replace(zj,"m","22")
zj=replace(zj,"n","23")
zj=replace(zj,"o","24")
zj=replace(zj,"p","25")
zj=replace(zj,"q","26")
zj=replace(zj,"r","27")
zj=replace(zj,"s","28")
zj=replace(zj,"t","29")
zj=replace(zj,"u","30")
zj=replace(zj,"v","31")
zj=replace(zj,"w","32")
zj=replace(zj,"x","33")
zj=replace(zj,"y","34")
zj=replace(zj,"z","35")
zj=replace(zj,"-","36")
zj=replace(zj,".","37")
yzcv=zj*(len(zj)+len(zcn&"mayivod"))
Do While yzcv>10000000000
yzcv=yzcv-10000000000
loop
if yzcv<>zcv then
response.write "<script language=JavaScript>{window.alert('错误：程序尚未注册,此功能不能使用!');window.location='zcmayireg.asp?type=reg';}</script>"
end if
%>
<html>
<LINK href="images/forum_admin.css" type=text/css rel=stylesheet>
<head>
<title>特别推荐html生成</title>
</head>

<body>
<TABLE class=tableBorder height=1 cellSpacing=1 cellPadding=5 width="100%" 
align=center border=0>
  <TBODY>
<TR>
    <TH height=25 style="background-image: url('images/admin_bg_1.gif')">&nbsp;&nbsp;<b><font style="font-size: 9pt">首 页 跑 马 灯 生 成</font></span></b></TH></TR></tbody></table>

<%if request.form("s1")="" then%>
<form method="POST">
  <p align="center"><textarea rows="24" name="s1" cols="80"><HTML><HEAD>
<LINK href="../images/style.css" type=text/css rel=stylesheet></head>
</HEAD>
<BODY leftMargin=0 topMargin=0 marginheight="0" marginwidth="0" oncontextmenu="return false" onselectstart="return false" ondragstart="return false">
<TABLE border="0" bgcolor="#C3EF26">
  <TBODY><%sql="select * from learning where best=true order by articleid desc"
                         Set rs= Server.CreateObject("ADODB.Recordset")
                         rs.open sql,conn,1,1
                         if rs.eof and rs.bof then
                            response.write "<p align='center'>没有任何电影</p>"
                         else
                         i=0
                         do while not rs.eof or rs.bof 
%><td width="10%" height="148" valign="top">
      <TD align=center valign="top"><A  href='../html/<%=rs("articleid")%>.html' target=_blank >
      <IMG src="<%if rs("domurl")="" then%>../images/nopic.gif<%else%><%=rs("domurl")%><%end if%>"  alt="<%=rs("title")%>" height=143 width=104 border=1 style="BORDER-LEFT-COLOR: #000000; BORDER-BOTTOM-COLOR: #000000; BORDER-TOP-STYLE: solid; BORDER-TOP-COLOR: #000000; BORDER-RIGHT-STYLE: solid; BORDER-LEFT-STYLE: solid; BORDER-RIGHT-COLOR: #000000; BORDER-BOTTOM-STYLE: solid" onMouseOver=javascript:parent.frames[1].stopscroll(); onMouseOut=javascript:parent.frames[1].startscroll(); align="top" ></A><br> 
        <A href='../html/<%=rs("articleid")%>.html' target=_blank title="<%=rs("title")%>" class="left" onMouseOver=javascript:parent.frames[1].stopscroll(); onMouseOut=javascript:parent.frames[1].startscroll(); ><%content=rs("title")
                          if len(content)>6 then content=left(content,6)&"…"
                          response.write content
                            %></a><br></td>
                     <% i=i+1
                        if i>=35 then exit do
                        rs.movenext	
                        loop
                        end if
                        rs.close
                        set rs=nothing
                     %></tr></table></body>
</html></textarea><br>
  <input type="submit" value="首页跑马灯生成htm" name="B1"></p>
</form>
<%else
conter=request.form("s1")
set fs=server.CreateObject("Scripting.FileSystemObject")
FilePath=server.MapPath("../index/toppic.html")
set htm=fs.opentextfile(filepath,2,true)
htm.write conter
response.write"<script>alert('html生成成功！');history.back();</Script>"
end if
%>
<p align="center">添加完电影后必操作特别推荐html生成（30个跑马灯才不停）</p>
<p align="center">　<a href="javascript:history.back()">[返回]</a></p>

</body>

</html>
⌨️ 快捷键说明

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