⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 change.asp

📁 网吧影印系统!很详细!可直接使用!请大家指点!
💻 ASP
字号:
<!--#include file="../checkpost.asp"-->
<!--#include file="articleconn.asp"-->
<!--#include file="zcm.asp"-->
<!--#include file="security.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
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<link rel="stylesheet" type="text/css" href="css/css.css">
<title></title>
<style>
<!--
.style1 {color: #FF0000}
-->
</style>
</head>
<LINK href="images/forum_admin.css" type=text/css rel=stylesheet>

<body bgcolor="#D6EF7E">
<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>

<%
   dim rs,sql,sel           
   set rs=server.createobject("adodb.recordset")
   sql="select * from password where id=1"
    rs.open sql,conn,1,1
   if zcn="" or zcv="" then response.end
%>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
  <tr>
    <td width="100%" colspan="2" bgcolor="#FFFFFF"><font size="2">&nbsp; <b>
    栏目管理:</b></font></td>
    <%set rs=server.createobject("adodb.recordset")
   sql="select * from type"
   rs.open sql,conn,1,3
  do while not rs.eof%>
  </tr>
  </form>
  <form method="POST" onsubmit action="changeadmin.asp?typeid=<%=rs("typeid")%>">
    <tr>
      <td width="10%" nowrap bgcolor="#FFFFFF">
      <p align="center"><font size="2"><%=rs("type")%></font></td>
      <td width="95%" nowrap bgcolor="#FFFFFF"><font size="2">
      <input type="text" name="typename" size="15">&nbsp;
      <input type="submit" value="修改" name="change">
      <input type="submit" value="删除" name="delet"></font></td>
    </tr>
  </form>
  <% rs.movenext
      loop
      %>
  <form method="POST" onsubmit action="changeadmin.asp">
    <tr>
      <td width="5%" nowrap bgcolor="#FFFFFF">
      <p align="center"><font size="2">新增:</font></td>
      <td width="104%" nowrap bgcolor="#FFFFFF"><font size="2">
      <input type="text" name="type" size="15">&nbsp;
      <input type="submit" value="新增" name="addname"></font></td>
    </tr>
  </form>
</table>
<table border="0" width="100%" cellpadding="0" cellspacing="0" height="247">
  <tr>
    <td width="100%" colspan="2" nowrap height="15" bgcolor="#FFFFFF">
    <font size="2">&nbsp; <b>网页信息:</b></font></td>
  </tr>
  <%set rs=server.createobject("adodb.recordset")
  rs.open "select * from home",conn,1,3
  %>
  <form method="POST" action="changeadmin.asp">
    <tr>
      <td width="18%" align="right" height="9" valign="middle" bgcolor="#FFFFFF">
      <p align="center"><font size="2">站点名称:</font></td>
      <td width="82%" height="9" bgcolor="#FFFFFF"><font size="2">
      <input class="smallInput" name="homes" size="50" maxlength="255" value="<%=rs("homes")%>"></font></td>
    </tr>
    <tr>
      <td width="18%" align="right" height="9" valign="middle" bgcolor="#FFFFFF">
      <p align="center"><font size="2">国际域名:</font></td>
      <td width="82%" height="9" bgcolor="#FFFFFF"><font size="2">
      <input class="smallInput" name="url" size="50" maxlength="255" value="<%=rs("url")%>"></font></td>
    </tr>
    <tr>
      <td width="18%" align="right" height="9" valign="middle" bgcolor="#FFFFFF">
      <p align="center"><font size="2">存放网址:</font></td>
      <td width="82%" height="9" bgcolor="#FFFFFF"><font size="2">
      <input class="smallInput" name="urls" size="50" maxlength="255" value="<%=rs("urls")%>"></font></td>
    </tr>
    <tr>
      <td width="18%" align="right" height="9" valign="middle" bgcolor="#FFFFFF">
      <p align="center"><font size="2">网页播放与否:</font></td>
      <td width="82%" height="9" bgcolor="#FFFFFF"><font size="2">
      <input class="smallInput" name="urlopen" size="1" maxlength="100" value="<%=rs("urlopen")%>"></font> <font color=#ff0000>注:只能是0或者1 【0表示使用网页播放,1表示直接调用播放器播放!】</font></td>
    </tr>
	<tr>
      <td width="18%" align="right" height="16" valign="middle" bgcolor="#FFFFFF">
      <p align="center"><font size="2">会员在线时间:</font></td>
      <td width="82%" height="16" bgcolor="#FFFFFF"><font size="2">
      <input class="smallInput" name="time" size="10" maxlength="100" value="<%=rs("time")%>"></font> 单位:分钟 <font color="#FF0000">超过此时间将会被自动踢出!</font></td>
    </tr>
    	<tr>
      <td width="18%" align="right" height="20" valign="middle" bgcolor="#FFFFFF">
      <p align="center"><font size="2">免费会员时间:</font></td>
      <td width="82%" height="20" bgcolor="#FFFFFF"><font size="2">
      <input class="smallInput" name="freeusertime" size="10" maxlength="100" value="<%=rs("freeusertime")%>"></font> 单位:天  <span class="style1">超过此时间未付费的免费会员会被自动删除!</span></td>
    </tr>
    	<tr>
      <td width="18%" align="right" height="18" valign="middle" bgcolor="#FFFFFF">
      <p align="center"><font size="2">观看记录时间:</font></td>
      <td width="82%" height="18" bgcolor="#FFFFFF"><font size="2">
      <input class="smallInput" name="looklogtime" size="10" maxlength="100" value="<%=rs("looklogtime")%>"></font> 单位:天  <span class="style1">超过此时间内的会员观看记录会被自动删除!</span></td>
    </tr>
    	<tr>
      <td width="18%" align="right" height="16" valign="middle" bgcolor="#FFFFFF">
      <p align="center"><font size="2">普通会员每天看:</font></td>
      <td width="82%" height="16" bgcolor="#FFFFFF"><font size="2">
      <input class="smallInput" name="pthy" size="10" maxlength="100" value="<%=rs("pthy")%>"></font>集</td>
    </tr>
    	<tr>
      <td width="18%" align="right" height="16" valign="middle" bgcolor="#FFFFFF">
      <p align="center"><font size="2">白金会员每天看:</font></td>
      <td width="82%" height="16" bgcolor="#FFFFFF"><font size="2">
      <input class="smallInput" name="bjhy" size="10" maxlength="100" value="<%=rs("bjhy")%>"></font>集</td>
    </tr>
        	<tr>
      <td width="18%" align="right" height="19" valign="middle" bgcolor="#FFFFFF">
      <p align="center"><font size="2">黄金会员每天看:</font></td>
      <td width="82%" height="19" bgcolor="#FFFFFF"><font size="2">
      <input class="smallInput" name="hjhy" size="10" maxlength="100" value="<%=rs("hjhy")%>"></font>集</td>
    </tr>
     <tr>
      <td width="18%" align="right" height="16" valign="middle" bgcolor="#FFFFFF">
      <p align="center"><font size="2">新会员注册为:</font></td>
      <td width="82%" height="16" bgcolor="#FFFFFF"><select size="1" name="zcdj">
          <option <%if rs("zcdj")=0 then%> selected <%end if%> value="0">电影游客</option>
          <option <%if rs("zcdj")=1 then%> selected <%end if%> value="1">普通会员</option>
          <option <%if rs("zcdj")=2 then%> selected <%end if%> value="2">白金会员</option>
          <option <%if rs("zcdj")=3 then%> selected <%end if%> value="3">黄金会员</option>
		  <option <%if rs("zcdj")=4 then%> selected <%end if%> value="4">钻石会员</option>
          </select> &nbsp;&nbsp;&nbsp; 
		消费模式:<select size="1" name="zcms">   
            <option <%if rs("zcms")=0 then%> selected <%end if%> value="0">   
            计点</option>   
            <option <%if rs("zcms")=1 then%> selected <%end if%> value="1">   
            包月</option>     
            </select><font size="2">&nbsp; 
		计点会员不分会员等级<span lang="en">!</span></font></td>
    </tr>
         <tr>
      <td width="18%" align="right" height="16" valign="middle" bgcolor="#FFFFFF">
      <p align="center"><font size="2">新会员注册送:</font></td>
      <td width="82%" height="16" bgcolor="#FFFFFF"><font size="2">
      <input class="smallInput" name="zcst" size="10" maxlength="100" value="<%=rs("zcst")%>"></font>天&nbsp;&nbsp; 
		只对包月会员有用!</td>
    </tr>
         <tr>
      <td width="18%" align="right" height="17" valign="middle" bgcolor="#FFFFFF">
      <p align="center"><font size="2">新会员注册送:</font></td>
      <td width="82%" height="17" bgcolor="#FFFFFF"><font size="2">
      <input class="smallInput" name="zcsd" size="10" maxlength="100" value="<%=rs("zcsd")%>"></font>点&nbsp;&nbsp; 
		只对计点会员有用!</td>
    </tr>
    <tr>
      <td width="18%" align="right" height="30" valign="middle" bgcolor="#FFFFFF"> </td>
      <td width="82%" height="30" bgcolor="#FFFFFF"><font size="2">
      <input type="submit" value=" 修 改 " name="cmdok" class="buttonface">
      <input type="reset" value=" 重 写 " name="cmdcancel" class="buttonface"></font><br><br></td>
    </tr>
  </form>
</table>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

</body>

</html>

⌨️ 快捷键说明

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