📄 sysinfo.asp

📁 学校用的班级网站
💻 ASP
字号:
<!-- #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("你不是管理员&#65533;无权进入&#65533;");
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("班级简介不能超过1000125字&#65533;","sysinfo.asp")
end if
rs("xuan")=xuan
rs.update
set rs=nothing
call success("ldfk","修改成功","sysinfo.asp")
end if
%>
<html>
<head>
<title>班级信息管理</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 "" ;} // 参数sString是空串

sStr = sString.split("");
for (i = sStr.length - 1 ; i >= 0 ; i --)  // 将字符串进行倒序
{ 
sResult = sResult + sStr[i]; 
}
sTemp = JHshLTrim(sResult) ; // 进行字符串前空格截除

if (sTemp == "") { return "" ; }

sStr = sTemp.split("");
sResult = "" ;
for (i = sStr.length - 1 ; i >= 0 ; i--) // 将经处理后的字符串再进行倒序
{
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("请填写起始学号&#65533;")
	  document.form1.classname.focus()
	  return false
	 }
if (JHshRTrim(document.form1.webname.value)=="")
	{
	  alert("请填写结速学号&#65533;")
	  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">:::修改班级信息:::</div></td>
    </tr>
    <tr bgcolor="#D2E9FE"> 
      <td width="15%">起始学号:</td>
      <td width="33%">&nbsp; 
        <input name="classname" type="text" id="classname" value="<%=rs("classname")%>" size="20"></td>
      <td width="19%">最新加入:</td>
      <td width="33%">&nbsp;
	  <%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")%>">&nbsp;<%=rsm("truename")%>&nbsp;</option>
			<%rsm.movenext
			wend
			set rsm=nothing
			%>
              </select></td>
    </tr>
    <tr bgcolor="#D2E9FE"> 
      <td>最终学号:</td>
      <td>&nbsp; 
        <input name="webname" type="text" id="webname" value="<%=rs("webname")%>" size="20"></td>
      <td>初始计数:</td>
      <td>&nbsp; 
        <input name="webcounter" type="text" id="webcounter" value="<%=rs("webcounter")%>" size="20"></td>
    </tr>
    <tr> 
      <td bgcolor="#D2E9FE" valign="top">班级简介:<p>支持:<span lang="en-us">HTML</span></td>
      <td colspan="3" bgcolor="#D2E9FE">&nbsp; 
        <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="修改">
          &nbsp; 
          <input type="reset" name="Submit" value="重写">
        </div></td>
    </tr>
  </form>
</table>
<%set rs=nothing%>
</body>
</html>
<%end if%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -