📄 js_news.asp

📁 网吧影印系统！很详细！可直接使用！请大家指点！
💻 ASP
字号:
<!--#include file="../checkpost.asp"-->
<!--#include file="security.asp"-->
<!--#include file="articleconn.asp"-->
<!--#include file="zcm.asp"-->
<%if session("flag")>1 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
%>
<%
filename="../js/news.js"
if request("body")<>"" then
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath(""&filename&""))
fout.Write request("body")
fout.close
set fout=nothing
set fso=nothing
mskrindex="ok"
end if

%>
<html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="images/forum_admin.css">
<title></title>
</head>

<body topmargin="1" leftmargin="1">

<%if mskrindex="ok" then%>
<table border="0" cellspacing="0" style="border-collapse: collapse" width="100%" cellpadding="0">
  <tr>
    <td width="100%"><font color="#FF0000">·</font>成功生成最新电影js(<b>News.Js</b>),时间<%=Now()%>
  </tr>
</table>
<%else%>
<div align="center">
  <table border="0" cellspacing="1" style="border-collapse: collapse" width="96%" bgcolor="#888888" height="100%">
    <form name="frmAnnounce" method="post" action="js_news.asp">
      <tr>
        <td width="100%" bgcolor="#FFFFFF" height="100%">
        <textarea style="width:100%; height:100%;" rows="19" name="body" cols="102"><!--#include file="articleconn.asp"-->
<%dim t  
t=0  
sql="select articleid,title,typeid,dateandtime,best from learning  order by articleid desc"  
set rs=server.createobject("adodb.recordset")  
rs.open sql,conn,1,1  
do while not rs.eof  
t=t+1  
%>
document.write("<tr><td width=80% height=18> &nbsp;<a href=../html/<%=rs("articleid")%>.html class=left><%=left(rs("title"),10)%></td>");
document.write("<td width=20%> <p align=left><font class=eng_S color=#3B591B1><%=Month(rs("dateandtime"))%>-<%=day(rs("dateandtime"))%></font></td></tr>");
<%  
                                  if t>=12 then exit do  
                                  rs.movenext  
                                  loop  
                                  %>

</textarea></td>
      </tr>
      <tr>
        <td width="100%" bgcolor="#F0F0F0">
        <p align="center">
        <input name="change" class="buttonface" value="生成(JS)" type="submit">
        </td>
      </tr>
    </form>
  </table>
  <%end if
 %>
</div>

</body>

</html>
⌨️ 快捷键说明

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