📄 sys_change.asp

📁 有很多功能的留言版,很容易上手,有自动添加图片、表情。管理员功能也强大
💻 ASP
字号:
<!--#include file="inc/conn.asp" -->
<!--#include file="inc/CallErr.asp" -->
<!--#include file="class/command.asp" -->
<!--#include file="class/SaveSys.asp" -->
<!--#INCLUDE FILE="inc/upload.asp"-->
<%
Response.Expires = -1
Server.ScriptTimeout = 300
dim ClassSystem,ClassCheck,ClassSys
Set ClassSystem = New System
Set ClassCheck = New CheckUser
Set ClassSys = New SaveSys
ClassSystem.GetWebSys()
ClassCheck.GetUserInfo()
ClassCheck.GetUserCss Request.Querystring("GetStyle")
ClassCheck.CheckUserLogin ClassSystem.ArrRs(2,0),ClassSystem.ArrRs(3,0),ClassCheck.AdminUser,ClassCheck.AdminPass
Input = Request.Querystring("Input")
ClassSys.SetRequest_Method Request.ServerVariables("Request_Method")
Select Case ClassSys.Request_Method
	Case "POST"
		set upload=new upload_5xSoft
		ClassSys.GetSys_GetChangeInfo upload.Form("TextType"),upload.Form("TextName"),upload.file("file1"),Request.Querystring("type")
		Select Case ClassSys.PostType
			Case "save"
				ClassSys.GetSys_GetFileInfo ClassSys.file,ClassSys.TextType
				ClassSys.CheckSys_ChangeInfo ClassSys.TextName,ClassSys.file,ClassSys.FileName,ClassSys.FilePath
				ClassSys.UpdateSys_Change ClassSys.TextName,ClassSys.file,ClassSys.FileName,ClassSys.FilePath
			Case "Edit"
				ClassSys.GetSys_ChangeEditInfo Request.Querystring("Id")
				ClassSys.CheckSys_ChangeTextEdit ClassSys.TextName,ClassSys.file,ClassSys.ArriRs(0,0),ClassSys.ArriRs(1,0)
				If ClassSys.ImgEdit = 1 Then ClassSys.GetSys_GetFileInfo ClassSys.file,ClassSys.TextType
				ClassSys.Check_ChangeTextEdit ClassSys.TxtEdit,ClassSys.ImgEdit,ClassSys.TextName,ClassSys.file,ClassSys.FileName,ClassSys.FilePath,ClassSys.Id
				ClassSys.Update_ChangeTextEdit ClassSys.TxtEdit,ClassSys.ImgEdit,ClassSys.TextName,ClassSys.file,ClassSys.FileName,ClassSys.FilePath,ClassSys.Id
		End Select
		ClassCheck.CallOk 1
End Select
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script src="script/GetStyle.js"></script>
<title><%=ClassSystem.ArrRs(0,0)%> - <%=ClassSystem.ArrRs(1,0)%></title>
</head>
<BODY LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 class="body" Bgproperties="fixed">
<!--#include file=Include/Top_Sys.asp -->
<div class="div"> 
  <table Class=TableTop border=0 cellpadding="0" cellspacing="0">
    <tr> 
    <td class=TableTop_Left rowspan="11">&nbsp;</td>
    <td colspan="2" align="center">&nbsp;</td>
  </tr>
  <tr> 
      <td colspan="2" class=TableTop_Right> 
        <table width="600" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td><p><strong>=&gt; 自定义字符转换设置</strong></p>
              <p>添加自定义字符 <a href="?Input=Add"><font color="#0000FF">--&gt; 点击进行添加</font></a></p>
<%
Select Case Input
	Case "Del"
		ClassSys.DelSys_Change Request.Querystring("Id")
		ClassCheck.CallOk 1
	Case "Us"
		ClassSys.UsSys_Change Request.Querystring("Id")
		ClassCheck.CallOk 1
	Case "Add"	
%>
<form method="POST" action="?type=save" name="form" enctype="multipart/form-data">
  <p>转换类型： 
    <select name="TextType" class=put>
      <option value="0">数字</option>
      <option value="1">英文</option>
      <option value="2" selected>中文</option>
      <option value="3">符号</option>
    </select>
  </p>
  <p>转换文字： 
    <input name="TextName" type="text" Class=Put id="TextName"  size="20" maxlength="20">
  </p>
  <p>对应图片： 
    <input type="file" name="file1"  size="20" class=put>
  </p>
                <p> &nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp; 
                  <input type="submit" name="Submit" value="=> 添加" class=put2>
                  <input type=reset name="Reset" value="重写" class=put3>
                </p>
</form>
<%
	Case "Edit"	
		ClassSys.GetSys_ChangeEditInfo Request.Querystring("Id")
%>
<form method="POST" action="?type=Edit&Id=<%=ClassSys.Id%>" name="form" enctype="multipart/form-data">
  <p>转换文字： 
    <input name="TextName" type="text" Class=Put id="TextName" value="<%=ClassSys.ArriRs(0,0)%>"  size="20" maxlength="20">
  </p>
  <p>原 图 片： <%=ClassSys.ArriRs(1,0)%></p>
  <p>更改图片： 
    <input type="file" name="file1"  size="20" class=put>
  </p>
                <p> &nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp; 
                  <input type="submit" name="Submit" value="=> 确定修改" class=put2>
                  <input type=reset name="Reset" value="重写" class=put3>
                </p>
</form>
<%
End Select
%>

              <p>&nbsp;</p><p><font color="#FF0000"><strong>已存在的自定义字符转换列表：</strong></font></p>
              <%
ClassSys.GetSys_Change()
Select Case ClassSys.ShowChange
	Case 1
		for i=0 to ubound(ClassSys.ArrRs,2)
%>
              <p>转换字符：<u><%=ClassSys.ArrRs(1,i)%></u> 对应图片：<%=ClassSys.ArrRs(2,i)%> 
                <font color="#FF0000">&nbsp;&nbsp;&nbsp;[操作：<a href="?Input=Del&Id=<%=ClassSys.ArrRs(0,i)%>">删除 
                </a>| <a href="?Input=Us&Id=<%=ClassSys.ArrRs(0,i)%>"> 
                <%If ClassSys.ArrRs(3,i) = True Then response.write "禁用" Else Response.Write "<font color=red>启用</font>"%>
                </a> | <a href="?Input=Edit&Id=<%=ClassSys.ArrRs(0,i)%>"> 修改</a>] 
                </font></p>
<%
		Next
	Case Else
		Response.write "暂无锁定的IP记录"
End Select
ClassSystem.Closedb()
%></td>
          </tr>
        </table></td>
  </tr></table>
</div>
<!--#Include File="Include/CopyRight.asp" -->
</body>
</html>
⌨️ 快捷键说明

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