📄 system.asp
字号:
<!--#include file="admin_include.asp"-->
<%
if request.form.count>0 then
SiteName1 = trim(request.form("SiteName"))
SiteUrl1 = trim(request.form("SiteUrl"))
SiteLogo1 = trim(request.form("SiteLogo"))
SiteBanner1 = trim(request.form("SiteBanner"))
SiteMail1 = trim(request.form("SiteMail"))
Str = "<%"&vbCrLf
Str = Str & "SiteName="""&SiteName1&""""&vbCrLf
Str = Str & "SiteUrl="""&SiteUrl1&""""&vbCrLf
Str = Str & "SiteLogo="""&SiteLogo1&""""&vbCrLf
Str = Str & "SiteBanner="""&SiteBanner1&""""&vbCrLf
Str = Str & "SiteMail="""&SiteMail1&""""&vbCrLf
Str = Str & "%\>"
file_path = "SiteConfig.asp"
Str2 = replace(Str,Chr(13)&Chr(10),";")
Str2 = replace(Str2,"<%","")
Str2 = replace(Str2,"%\>","")
' application.Lock()
' conn.execute("insert into [Operate] (Operate_Text,Operate_Time,Operate_Type) values('用户:"&Session("Admin_Login")&",Ip:"&LoadIp&",修改后系统信息:"&Str2&"','"& now()&"',2)")
' application.UnLock()
Set objStream = Server.CreateObject("ADODB.Stream")
With objStream
.Open
.Charset = "utf-8"
.Position = objStream.Size
.WriteText=Str
.SaveToFile server.mappath(file_path),2
.Close
End With
Set objStream = Nothing
response.Write("信息设置成功!")
response.End()
end if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link href="Css/main.css" rel="stylesheet" type="text/css">
<title><%=WebName%></title>
</head>
<script language="javascript" src="../js/jquery.js"></script>
<script language="javascript" src="../js/jquery.form.js"></script>
<script language="javascript">
function SysAdd(obj){
if (obj.SiteName.value==""){
alert("没有填写站点名称!");
obj.SiteName.focus();
return false;
}
if (obj.SiteUrl.value==""){
alert("站点地址为空!");
obj.SiteUrl.focus();
return false;
}
if (obj.SiteLogo.value==""){
alert("Logo地址为空!");
obj.SiteLogo.focus();
return false;
}
if (obj.SiteBanner.value.length<=5){
alert("Banner地址为空!");
obj.SiteBanner.select();
return false;
}
if (obj.SiteMail.value==""){
alert("E-mail地址为空!");
obj.SiteMail.focus();
return false;
}
$('#Sys_Edit').ajaxForm(
function(r){
alert(r);
}
)
}
</script>
<body>
<form name="Sys_Edit" id="Sys_Edit" action="System.asp" method="post" onsubmit="return false;">
<table width="97%" cellpadding="2" cellspacing="1" style="border:1px solid #FFFFFF">
<tr>
<td colspan="2" class="table_caption">系统信息</td>
</tr>
<tr>
<td colspan="2" bgcolor="#CCCCCC" class="intro"> </td>
</tr>
<tr>
<td width="40%" class="leftbg">站点名称</td>
<td class="rightbg">
<input type="text" name="SiteName" class="TextBox" value="<%=SiteName%>" />
<span class="tip_red">*</span>
</td>
</tr>
<tr>
<td class="leftbg">网站地址</td>
<td class="rightbg">
<input type="text" name="SiteUrl" class="TextBox" value="<%=SiteUrl%>"/>
<span class="tip_red">*</span>
</td>
</tr>
<tr>
<td class="leftbg">站点Logo</td>
<td class="rightbg">
<input type="text" name="SiteLogo" class="TextBox" value="<%=SiteLogo%>" />
<span class="tip_red">*</span>
</td>
</tr>
<tr>
<td class="leftbg">站点Banner</td>
<td class="rightbg">
<input type="text" name="SiteBanner" class="TextBox" value="<%=SiteBanner%>" />
<font color="#FF0000">*</font> </td>
</tr>
<tr>
<td class="leftbg">站点E-mail</td>
<td class="rightbg">
<input type="text" name="SiteMail" class="TextBox" value="<%=SiteMail%>" />
<font color="#FF0000">*</font> </td>
</tr>
<tr>
<td colspan="2" class="header text_nor">
<input name="submit" type="submit" onClick="return SysAdd(this.form)" value="确 认" class="submitCmd">
<input name="reset" type="reset" value="重 置" class="submitCmd">
</td>
</tr>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -