📄 editmoban.asp

📁 网吧影印系统！很详细！可直接使用！请大家指点！
💻 ASP
字号:
<!--#include file="../checkpost.asp"-->
<!--#include file="security.asp"-->
<!--#include file="articleconn.asp"-->
<!--#include file="zcm.asp"-->
<%if session("flag")>2 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 name="GENERATOR" content="Microsoft FrontPage 6.0">
<title>修改摸版</title>
<LINK href="images/forum_admin.css" type=text/css rel=stylesheet></head>
<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
dim sql
dim count
set rs=server.createobject("adodb.recordset")
%>
<body bgcolor="#799AE1" >
<script language="JavaScript">

function test(){

  {

  temp = document.script.moban.value;

  testwin= open("", "testwin","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=no,copyhistory=yes");

  testwin.document.open();

  testwin.document.write(temp);

  testwin.document.close();

 }

}

function check()

{
  if(document.script.moban.value=="")
    {
      alert("模板内容不能为空");
      return false;
    }
}

//End hiding-->

</script>
<form method="POST"  name="script"  onsubmit="javascript:return check();" action="savemoban.asp?action=editmoban&type=<%=request("type")%>&id=<%=request("id")%>">
  <div align="center">
    <TABLE width="615" border="0" align="center" cellspacing="1">
    <TR align="center"> 
      <TD colspan="4" height="25" bgcolor="#0099FF" align=center width=611><b><FONT color="#333333">模版修改</FONT></b></TD>
    </TR>
    <%
	sql="select * from moban where id="&request("id")
	rs.open sql,conn,1,1
%>
    <tr > 
      <td align=center width="896"> 
        <textarea rows="30" name="moban" cols="84" class="smallarea"  >
<%
	content=replace(rs("moban"),"<bt>",chr(13))
	content=replace(content,"&nbsp;"," ")
	response.write content
%>
	</textarea>
        <FONT color="#FF0000">**</FONT></td>
    </tr>
  </table>
         </div> 
  <div align="center"><center><p><input type="submit" value=" 修 改 "
  name="cmdok" class="buttonface">&nbsp; 
<input type="button" value="预览" onClick="test()" class="buttonface" size=10>&nbsp;</p>
  </center></div>
</form>
</body>
</html>
<%
	set rs=nothing
	conn.close
	set conn=nothing
%>
⌨️ 快捷键说明

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