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"-->