?? sysinfo.asp
字號(hào):
<!-- #include file="inc/db.inc" -->
<!-- #include file="inc/func.inc" -->
<!-- #include file="char.asp" -->
<%
userid=session("myuserid")
password=session("mypwd")
if isman(userid,password)=0 then
%>
<script>
alert("你不是管理員�無權(quán)進(jìn)入�");
parent.location.href="index.asp";
</script>
<%
else
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
Function Sqlstr(data)
sqlstr=Replace(data,"'","''")
End Function
set rs=Server.CreateObject ("ADODB.RECORDSET")
RS.Open "syssetup", Conn, 2, 2 , adCmdTable
rs("classname")=sqlstr(trim(request.form("classname")))
rs("webname")=sqlstr(trim(request.form("webname")))
rs("webcounter")=clng(sqlstr(trim(request.form("webcounter"))))
rs("lastone")=request.form("mylast")
xuan=sqlstr(trim(request.form("xuan")))
xuan=replace(xuan,chr(13)&chr(10),"<br>",1)
if len(xuan)>1000125 then
call error("班級(jí)簡(jiǎn)介不能超過1000125字�","sysinfo.asp")
end if
rs("xuan")=xuan
rs.update
set rs=nothing
call success("ldfk","修改成功","sysinfo.asp")
end if
%>
<html>
<head>
<title>班級(jí)信息管理</title>
<meta http-equiv="xuan-Type" xuan="text/html; charset=gb2312">
<LINK href="jscs/css.CSS" type=text/css rel=stylesheet>
</head>
<script language="javascript">
//去除字符串前空格
function JHshLTrim(sString)
{
var sStr,i,iStart,sResult = "";
sStr = sString.split("");
iStart = -1 ;
for (i = 0 ; i < sStr.length ; i++)
{
if (sStr[i] != " ")
{
iStart = i;
break;
}
}
if (iStart == -1) { return "" ;} //表示sString中的所有字符均是空格,則返回空串
else { return sString.substring(iStart) ;}
}
//去除字符串后空格
function JHshRTrim(sString)
{
var sStr,i,sResult = "",sTemp = "" ;
// if (sString.length == 0) { return "" ;} // 參數(shù)sString是空串
sStr = sString.split("");
for (i = sStr.length - 1 ; i >= 0 ; i --) // 將字符串進(jìn)行倒序
{
sResult = sResult + sStr[i];
}
sTemp = JHshLTrim(sResult) ; // 進(jìn)行字符串前空格截除
if (sTemp == "") { return "" ; }
sStr = sTemp.split("");
sResult = "" ;
for (i = sStr.length - 1 ; i >= 0 ; i--) // 將經(jīng)處理后的字符串再進(jìn)行倒序
{
sResult = sResult + sStr[i];
}
return sResult ;
}
//去除字符串前后空格
function JHshTrim(sString)
{
var strTmp
strTmp = JHshRTrim(JHshLTrim(sString))
return strTmp
}
function form1_onsubmit() {
if (JHshRTrim(document.form1.classname.value)=="")
{
alert("請(qǐng)?zhí)顚懫鹗紝W(xué)號(hào)�")
document.form1.classname.focus()
return false
}
if (JHshRTrim(document.form1.webname.value)=="")
{
alert("請(qǐng)?zhí)顚懡Y(jié)速學(xué)號(hào)�")
document.form1.webname.focus()
return false
}
}
</script>
<body bgcolor="#F2F8FF">
<%
set rs=conn.execute("select * from syssetup")
%>
<table width="75%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#0099CC">
<form name="form1" method="post" language="javascript" onSubmit="return form1_onsubmit()">
<tr>
<td colspan="4" bgcolor="#99CCFF"> <div align="center">:::修改班級(jí)信息:::</div></td>
</tr>
<tr bgcolor="#D2E9FE">
<td width="15%">起始學(xué)號(hào):</td>
<td width="33%">
<input name="classname" type="text" id="classname" value="<%=rs("classname")%>" size="20"></td>
<td width="19%">最新加入:</td>
<td width="33%">
<%set rsm=Server.CreateObject ("ADODB.RECORDSET")
sql="select userid,truename from [txluser] order by id desc"
rsm.open sql,conn,1,1
%><select name="mylast" id="mylast">
<%while not rsm.eof
%>
<option value="<%=rsm("truename")%>"> <%=rsm("truename")%> </option>
<%rsm.movenext
wend
set rsm=nothing
%>
</select></td>
</tr>
<tr bgcolor="#D2E9FE">
<td>最終學(xué)號(hào):</td>
<td>
<input name="webname" type="text" id="webname" value="<%=rs("webname")%>" size="20"></td>
<td>初始計(jì)數(shù):</td>
<td>
<input name="webcounter" type="text" id="webcounter" value="<%=rs("webcounter")%>" size="20"></td>
</tr>
<tr>
<td bgcolor="#D2E9FE" valign="top">班級(jí)簡(jiǎn)介:<p>支持:<span lang="en-us">HTML</span></td>
<td colspan="3" bgcolor="#D2E9FE">
<textarea name="xuan" cols="65" rows="33" id="xuan"><%=rs("xuan")%></textarea></td>
</tr>
<tr>
<td colspan="4" bgcolor="#99CCFF"> <div align="center">
<input type="submit" name="Submit2" value="修改">
<input type="reset" name="Submit" value="重寫">
</div></td>
</tr>
</form>
</table>
<%set rs=nothing%>
</body>
</html>
<%end if%>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -