📄 mansys1.asp

📁 此程序为网上下载
💻 ASP
字号:
<%@ LANGUAGE=VBScript.Encode codepage ="936" %>
<%
Response.Buffer = True
Response.Expires = 0
Response.CacheControl = "Private"
Sub Msg (v)
 Response.Write "<html><head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><meta http-equiv='pragma' content='no-cache'><style type=text/css>body{color:black;font-family:宋体;font-size:9pt;background-color:buttonface;border-bottom:medium none;border-left:medium none;border-right:medium none;border-top:medium none;padding-bottom:0px;padding-left:0px;padding-right:0px;padding-top:0px}</style></head><body leftMargin=0 topMargin=0 marginheight=0 marginwidth=0>"
 Response.Write "<script Language=JavaScript>alert('" & v & "');window.close();</script></body></html>"
 Response.End
End Sub
nickname=Session("hxf_u_nickname")
grade=Int(Session("hxf_u_grade"))
inthechat=Session("hxf_u_inthechat")
If nickname = "" Then Msg "不在聊天室中，不能设置系统参数！"
if Session("hxf_u_inthechat")<>"1" and nickname<>"聊天室管理员" then Msg "不在聊天室中，不能设置系统参数！"
If grade <> 12 or Int(Session("ipbt"))<>1 Then Msg "你不是聊天室管理员 \n\n 没有设置系统参数的权限！"
id = Trim(Request.QueryString("id"))
If id = "" Then Msg "请指定参数名称！"
If Server.URLEncode(id) <> id Then Msg "参数名称有误！"
allow = ",chatroomname,bbsurl,homepageurl,opendate,userinto,userout,userdown,automanname,chatroombgimage,chatroombgcolor,logo,chatimage,chatbgcolor,titlecolor,chatcolor,disloginname,saysfilterstr,htmldontinstr,"
If InStr(allow, "," & id & ",") = 0 Then Msg "参数名称有误！"
%>
<html>
<head>
<title>系统参数</title>
<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>
<style type=text/css>
body{color:black;font-family:宋体;font-size:9pt;background-color:buttonface;border-bottom:medium none;border-left:medium none;border-right:medium none;border-top:medium none;padding-bottom:0px;padding-left:0px;padding-right:0px;padding-top:0px}
td{font-family:宋体;font-size:9pt;}
input{font-family:宋体;font-size:9pt;}
textarea{font-family:宋体;font-size:9pt;}
select{font-family:宋体;font-size:9pt;}
</style>
<script language=Javascript>
var old = "<%=Application("wsaxhxf_c_" & id)%>";
function check(){
 f1v = document.send.f1.value;
 f2v = document.send.f2.value;
 if(f1v == ""){
  alert("参数名称不能为空。");
  return false;
 }
 if(f2v == ""){
  alert("参数值不能为空。");
  return false;
 }
 if(f2v == old){
  alert("参数值没有变化，不需要更改。");
  return false;
 }
 document.send.chg.disabled = 1;
 return true;
}
</script>
</head>
<body>
<table border="0" align="center">
<form name="send" method="post" action="mansys1ok.asp" onsubmit='return(check());'>
<tr> 
<td align="right">系统参数:</td>
<td> 
<input type=text name=f1 readonly value="<%=id%>" size="16">
（请一定要严格按范例格式设置）</td>              
</tr>              
<tr>               
<td align="right">新参数值:</td>              
<td>              
<textarea name="f2" rows="3" cols="44"><%=Application("wsaxhxf_c_" & id)%></textarea>                 
</td>              
</tr>              
<tr>               
<td align="center" colspan="2">               
<input type="submit" name="chg" value=" 调整(C) " accesskey="c">              
<input type="reset" name="Reset" value=" 重填(R) " accesskey="r">              
<input type="button" name="quit" value=" 退出(Q) " accesskey="q" onclick="javascript:window.close();">              
</td>              
</tr>              
</form>              
</table>              
<script Language=JavaScript>document.send.f2.focus();</script>              
</body></html>
⌨️ 快捷键说明

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