📄 admin_setup.asp

📁 于毕业设计与论文以及做课题用-MSK Simulink simulation program for the design and graduation thesis topic, and makin
💻 ASP
字号:
<!--#include file="../Conn.asp"-->
<!--#include file="Admin_Session.asp"-->
<%
IF Session("Rank")="" Or Session("Rank")>3 Then
  Response.Write "<script language='javascript'>alert('你没权限操作！');location='Admin_Main.asp';</script>"
  Response.End()
End If
Dim Rs,Sql,Action
Action=Trim(Request("Action"))
Set Rs=server.CreateObject("Adodb.recordset")
Sql="Select * From HX33_Config Where HX33_ConfigID=1"
Rs.Open Sql,Conn,1,3
IF Action="Save" Then
    HX33_WishName=Trim(Request("HX33_WishName"))
	HX33_IndexNum=Trim(Request("HX33_IndexNum"))
	HX33_WishPage=Trim(Request("HX33_WishPage"))
	HX33_KeyWord=Trim(Request("HX33_KeyWord"))
	HX33_Descrip=Trim(Request("HX33_Descrip"))
	HX33_Version=Trim(Request("HX33_Version"))
	Badwords=Trim(Request("Badwords"))
	seconds=Clng(Trim(Request("seconds")))
	ad=Trim(Request("ad"))
    Rs("HX33_WishName")=HX33_WishName
	Rs("HX33_IndexNum")=HX33_IndexNum
	Rs("HX33_WishPage")=HX33_WishPage
	Rs("HX33_KeyWord")=HX33_KeyWord
	Rs("HX33_Descrip")=HX33_Descrip
	Rs("HX33_Version")=HX33_Version
	Rs("seconds")=seconds
	Rs("ad")=ad
	Rs("Badwords")=Badwords
	Rs.Update()
	Response.Write "<script language='javascript'>alert('修改成功！');location='Admin_Setup.asp';</script>"
End if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css/style.css" rel="stylesheet" type="text/css">

<script language="javascript">
function checkNum(obj){
	var checkOK = "0123456789 ";
	var checkStr = obj.value;
	var allValid = true;
	for (i = 0;  i < checkStr.length;  i++){
		ch = checkStr.charAt(i);
		for (j = 0;  j < checkOK.length;  j++)
		if (ch == checkOK.charAt(j))
			break;
		if (j == checkOK.length){
			allValid = false;
			break;
		}
	}
	if (!allValid){
		alert("只能由数字组成！");
		obj.select();
		return (false);
	}
	return (true);	
}
</script> 
</head>
<body>
<div align="center">

  <table cellpadding="3" cellspacing="1" border="0" width="100%" class="tableBorder" align=center>
    
	<tr> 
      <th class="tableHeaderTex" height=50>网站初始设置</th>
    </tr>
	
    <tr> 
      <td align="center"  class="forumRowHighlight"> 
 
	  <form name="SetUp" method="post" action="?Action=Save">
	     
		
    <table width="90%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
          <td width="23%" height="30" align="right" class="forumRowHighlight">
		网站名称：		   </td>
          <td width="77%" height="30" class="forumRowHighlight"><input name="HX33_WishName" type="text" id="HX33_WishName" value="<%=Rs("HX33_WishName")%>" size="50">
            (* 系统名称Eg：HX33爱情许愿墙)</td>
      </tr>
		   <tr>
          <td height="30" align="right" class="forumRowHighlight">
		首页显示条数：		   </td>
          <td height="30" class="forumRowHighlight"><input name="HX33_IndexNum" type="text" id="HX33_IndexNum" onBlur="return checkNum(this);" value="<%=Rs("HX33_IndexNum")%>" size="10">
            （* 在首页显示多少条许愿纸条）</td>
		   </tr>
		   <tr>
          <td height="30" align="right" class="forumRowHighlight">
		每页显示条数：		   </td>
          <td height="30" class="forumRowHighlight"><input name="HX33_WishPage" type="text" id="HX33_WishPage" onBlur="return checkNum(this);" value="<%=Rs("HX33_WishPage")%>" size="10">
            （* 在列表页显示多少条许愿纸条）</td>
		   </tr>
		   <tr>
          <td height="30" align="right" class="forumRowHighlight">
		间隔时间(秒)：		   </td>
          <td height="30" class="forumRowHighlight"><input name="seconds" type="text" id="seconds" onBlur="return checkNum(this);" value="<%=Rs("seconds")%>" size="10">
            （* 修改发贴、搜索等操作间隔时间(秒)）</td>
		   </tr>
		   
		   <tr>
          <td height="30" align="right" class="forumRowHighlight">
		版本号：		   </td>
          <td height="30" class="forumRowHighlight"><input name="HX33_Version" type="text" id="HX33_Version" value="<%=Rs("HX33_Version")%>" size="10">
            （* 如果你拥有自己修改的版本号，可修改）</td>
		   </tr>
		   
		   <tr>
          <td height="30" align="right" class="forumRowHighlight">
		公告：		   </td>
          <td height="30" class="forumRowHighlight"><input name="ad" type="text" id="ad" value="<%=Rs("ad")%>" size="60">
            （* 特效字那里显示）</td>
		   </tr>
		   
		   <tr>
          <td height="24" align="right" class="forumRowHighlight">过滤的词： </td>
          <td height="24" class="forumRowHighlight"><textarea name="Badwords" cols="50" rows="6" id="Badwords"><%=Rs("Badwords")%></textarea>
            （* 过滤的词，请使用“,”隔开）</td>
		   </tr>
		   
		   <tr>
          <td height="30" align="right" class="forumRowHighlight">
		网站关键字：		   </td>
          <td height="30" class="forumRowHighlight"><textarea name="HX33_KeyWord" cols="50" rows="6" id="HX33_KeyWord"><%=Rs("HX33_KeyWord")%></textarea>
            （* 网站关键字SEO使用）</td>
		   </tr>
		   <tr>
          <td height="24" align="right" class="forumRowHighlight">网站描述： </td>
          <td height="24" class="forumRowHighlight"><textarea name="HX33_Descrip" cols="50" rows="6" id="HX33_Descrip"><%=Rs("HX33_Descrip")%></textarea>
            （* 网站描述SEO使用）</td>
		   </tr>
        <tr>
          <td height="30" colspan="2" align="center" class="forumRowHighlight">
		  <input name="Submit" type="submit" class="button" id="Submit" onClick="return SubmitForm();" value="提交">
          &nbsp;&nbsp;
              <input name="Reset" type="reset" class="button" onClick="return SubmitFormNclass();" value="重置"></td>
          </tr>
    </table>
	</form>
	</td>
  </tr>
</table>
</div>
</body>
</html>
<%
Rs.Close:Set Rs=Nothing
Call ConnClose()
%>
⌨️ 快捷键说明

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