📄 schoolset.asp
字号:
<!--#include file="Admin_IsLogin.asp" -->
<!--#include file="dataconn.asp"-->
<HTML><HEAD><TITLE>学校信息设置</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK
href="inc/Admin_Style.css" type=text/css rel=stylesheet>
<SCRIPT language=JavaScript>
function CheckInput()
{
if (document.form.comname.value == "")
{
alert("学校名称不能为空！");
document.form.comname.focus();
return false;
}
document.form.submit()
}
</SCRIPT>
<META content="MSHTML 6.00.2800.1476" name=GENERATOR>
<style type="text/css">
<!--
body {
background-color: #f7f7f7;
}
-->
</style></HEAD>
<BODY leftMargin=0 topMargin=0 marginwidth="0" marginheight="0">
<br>
<br>
<TABLE cellSpacing=2 cellPadding=2 width=98% align=center border=0 bgcolor="#f7f7f7">
<TBODY>
<TR>
<TD width="741" height=60 align=middle vAlign=center class=alltable><%
action=request.querystring("action")
if action="modicominfo" then
set rsc = server.createobject("adodb.recordset")
sqlc="select * from cominfo"
rsc.open sqlc,conn,1,3
rsc("comname")=trim(request.form("comname"))
rsc("comtel")=trim(request.form("comtel"))
rsc("comaddress")=trim(request.form("comaddress"))
rsc("comceo")=trim(request.form("comceo"))
rsc("comcode")=trim(request.form("comcode"))
rsc.update
Response.write("<script>alert(""学校信息设置成功，请返回！"");location.href='Javascript:history.back()';</script>")
response.end
rsc.close
set rsc=nothing
else
'*************************************检查结束
Dim rdsInfo
set rdsInfo = Server.CreateObject("ADODB.Recordset")
sqlc="select * from cominfo"
rdsInfo.Open sqlc,Conn,1,1
comname=rdsInfo("comname")
comtel=rdsInfo("comtel")
comaddress=rdsInfo("comaddress")
comceo=rdsInfo("comceo")
comcode=rdsInfo("comcode")
rdsInfo.Close
set rdsInfo = nothing
%><TABLE cellSpacing=0 cellPadding=1 width=100% align=center border=0>
<TBODY>
<TR vAlign=top>
<TD width=739>
<form name=form action=?action=modicominfo method=post>
<TABLE borderColor=#cc0000 height=231 cellSpacing=1 width=90%
align=center border=0>
<TBODY>
<TR vAlign=center>
<TD class=alltable align=right width=126 height=28>
<FONT
color=#000000>单位名称：</FONT></TD>
<TD class=alltable colSpan=2 height=28><INPUT name=comname class=smallInput id="comname" value="<%=comname%>" size="50">
<FONT color=#990000>*</FONT> </TD>
</TR>
<TR vAlign=center>
<TD class=alltable align=right width=126 height=13>
<FONT
color=#000000>单位地址：</FONT></TD>
<TD class=alltable colSpan=2 height=13><INPUT name=comaddress
type=text class=smallInput id="comaddress" value="<%=comaddress%>" size="40" maxLength=40> <FONT
color=#990000>*</FONT></TD></TR>
<TR vAlign=center>
<TD class=alltable align=right width=126 height=28>
<FONT
color=#000000>单位电话：</FONT></TD>
<TD class=alltable colSpan=2 height=28><INPUT name=comtel
type=text class=smallInput id="comtel" value="<%=comtel%>" maxLength=20> <FONT
color=#990000>*</FONT></TD>
<TR vAlign=center>
<TD class=alltable align=right width=126 height=24>
<FONT
color=#000000>单位领导：</FONT></TD>
<TD class=alltable colSpan=2 height=24><INPUT name=comceo class=smallInput id="comceo" value="<%=comceo%>"
maxLength=20>
<FONT
color=#990000>*</FONT> </TD>
</TR>
<TR>
<TD align=right colSpan=2 height=29>单位邮箱<FONT
color=#000000>：</FONT></TD>
<TD width="526" height=29 align=right><div align="left">
<INPUT name=comcode class=smallInput id="comcode" value="<%=comcode%>"
maxLength=20>
<FONT
color=#990000>*</FONT></div></TD>
</TR>
<TR>
<TD align=right colSpan=3 height=10></TD></TR>
<TR>
<TD align=middle colSpan=3 height=10><div align="center">
<INPUT class=smallInput onclick=CheckInput() type=submit value="修改 " name=button>
<INPUT class=smallInput type=reset value=" 重填 " name=Reset>
</div></TD></TR></TBODY></TABLE>
</form></TD></TR></TBODY></TABLE><%end if%></TD></TR>
<TR>
<TD height=15></TD></TR></TBODY></TABLE>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -