www.gusucode.com > ASP+ACCESS学生信息管理系统设计(源代码+论文) > ASP+ACCESS学生信息管理系统设计(源代码+论文)\赵超\AdminSys.asp

    <!--#include file="AdminTop.asp"-->
<% Call  IsBrower() 

IF Request.Form("IsOk")=1 then
XCtitle=ReplaceBadChar(Request.Form("XCtitle"))
XCSchool=ReplaceBadChar(Request.Form("XCSchool"))
XCmaster=ReplaceBadChar(Request.Form("XCmaster"))
xccopytime=ReplaceBadChar(Request.Form("xccopytime"))
XcOpen=ReplaceBadChar(Request.Form("XcOpen"))
Xcscript=replace(Request.Form("Xcscript"),"'",Chr(34))
XCCopyright=ReplaceBadChar(Request.Form("XCCopyright"))
Str="Update Xcadmin Set XCtitle='" & XCtitle & "',XCSchool='" & XCSchool
Str=Str & "',Xcmaster='" & XCmaster  & "',xccopytime='" & xccopytime  & "',Xcscript='" & Xcscript  & "',XCCopyright='" & XCCopyright & "',XcOpen=" & XcOpen 
	'Response.Write(Str)
	'Response.End()
	Conn.execute(Str)
	Call UserOpr("修改系统信息")
	Call ShowMessAge("修改系统信息成功","AdminIndex.asp")
End if

%>
<link href="Css/wangye9pt.css" rel="stylesheet" type="text/css">
<table width="779" height="450" border="0" align="center" cellpadding="0" cellspacing="1" class="TableAll">
  <tr bgcolor="#FFFFFF">
    <td width="161" valign="top" class="w9pt"><!--#include file="AdminLeft.asp"-->
    </td>
    <td width="615" align="center" valign="top" bgcolor="#FFFFFF"><br>
      <br>
      <table width="90%"  border="0" cellpadding="0" cellspacing="1" class="TableAll">
        <tr>
          <td height="25" align="center" class="TrTop">系统设置修改
            <%
		  Str="Select * From XcAdmin"
		  Set Rs=Conn.execute(Str)
		  %>
          </td>
        </tr>
        <tr>
          <td height="30" align="center" bgcolor="#FFFFFF"><form action="" method="post" name="FrmSearch" id="FrmSearch" onSubmit="return Search()">
              <table width="100%"  border="0" cellpadding="5" cellspacing="1" class="w9pt">
                <tr>
                  <td width="19%" height="30" align="right">网站标题栏</td>
                  <td width="81%" height="15"><input name="XcTitle" type="text" id="XcTitle" style="width:200px" value="<%=Rs("XcTitle")%>"></td>
                </tr>
                <tr>
                  <td height="30" align="right">学校名称</td>
                  <td height="15"><input name="XcSchool" type="text" id="XcSchool" style="width:200px" value="<%=Rs("XcSchool")%>" size="10"></td>
                </tr>
                <tr>
                  <td height="30" align="right">校长名称</td>
                  <td height="15"><input name="Xcmaster" type="text" id="UserPwd3" style="width:200px" value="<%=Rs("Xcmaster")%>" size="10"></td>
                </tr>
                <tr>
                  <td height="30" align="right">版本使用时间</td>
                  <td height="15"><input name="XcCopyTime" type="text" id="UserName5" style="width:200px" value="<%=Rs("XcCopyTime")%>"></td>
                </tr>
                <tr>
                  <td height="30" align="right">网站开关</td>
                  <td height="15"><select name="XcOpen" id="XcOpen">
                      <option value="1" <% IF Rs("XcOpen")=1 then Response.Write("selected") %>>开启网站</option>
                      <option value="2" <% IF Rs("XcOpen")=2 then Response.Write("selected") %>>关闭网站</option>
                    </select></td>
                </tr>
                <tr>
                  <td height="30" align="right">网站特效</td>
                  <td height="15"><textarea name="Xcscript" cols="50" rows="10" id="textarea"  style="width:auto"><%=Rs("XcScript")%></textarea></td>
                </tr>
                <tr>
                  <td height="30" align="right">版权信息</td>
                  <td height="15"><input name="XcCopyright" type="text" id="UserName6" style="width:200px" value="<%=Rs("XcCopyright")%>"></td>
                </tr>
                <tr>
                  <td height="30" colspan="2" align="center"><input type="submit" name="Submit" value="确认修改">
                    <input name="IsOk" type="hidden" id="IsOk" value="1">
                    <script language="javascript">

function Search()
{
if(confirm('确实要修改系统信息吗？'))
		{
		return true;
		}
return false;
}
</script>
                  </td>
                </tr>
              </table>
            </form></td>
        </tr>
      </table>
      <br>
    </td>
  </tr>
</table>
<!--#include file="Foot.asp"-->