liuyan_student.asp

成绩查询管理系统

<!-- #include file="inc/conn.asp" -->




<%
Response.buffer=true
if request.form("method")=1 then
code=request.form("code")
if code<>session("code") then
    response.write("<script language=JavaScript>" & chr(13) & "alert('附加码输入错误！');" & "history.back()" & "</script>")
    response.end
end if
content=replace(request.form("text1"),"'","")
if len(content)>250 or trim(content)="" then
    response.write("<script language=JavaScript>" & chr(13) & "alert('您的留言的字数为零或是超过指定数目！');" & "history.back()" & "</script>")
    response.end
end if
xh=trim(request.form("xh"))
dim i,fine
fine=true
for i=1 to len(xh)
    if mid(cstr(xh),i,1)>"9" or mid(cstr(xh),i,1)<"0" then
        fine=false
        exit for
    end if
next
title=trim(replace(request.form("title"),"'",""))
if title="" then title=right(content,15)
    
if len(xh)>10 or xh="" or not fine then
    response.write("<script language=JavaScript>" & chr(13) & "alert('您的学号不符合条件，请确认！');" & "history.back()" & "</script>")
    response.end
end if
sql = "insert into liuyan(title,content,xh) values('"&title&"','"&content&"','"&xh&"')"
conn.execute(sql)
    response.write("<script language=JavaScript>" & chr(13) & "alert('您的留言已经提交成功！');" & "window.location.href = 'index.asp'" & "</script>")
    response.end
end if
            dim num1
            dim rndnum
            Randomize
            Do While Len(rndnum)<4
            num1=CStr(Chr((57-48)*rnd+48))
            rndnum=rndnum&num1
            loop
            session("code")=rndnum
%>

<!-- #include file="inc/top.asp" -->
<script>
function showLen(obj)
            {
                document.all.bodyLen.innerText=obj.value.length;
            }
</script>
<!-- #include file="inc/stumenu.asp" --><table width="768" height="25" align="center" cellpadding="0" cellspacing="0" class="unnamed_rld2">
    <tr>
      <td align="center">
      
<table width="752" height="20" border=0 align="center" cellpadding="0" cellspacing="0" class="unnamed_rld2">
    <tr><td align=center>给管理员留言</td></tr>
</table>
<table width="752" height="20" border=0 align="center" cellpadding="0" cellspacing="0">
<tr><td align="center">
<form action="" method="post" name="remarkForm">
<table width="752" height="20" border=0 align="center" cellpadding="0" cellspacing="0"><br>
    <tr><td align="right">主题：</td><td colspan="2" valign=top><input name="title" size="32" maxlength="30">
    附加码：<input name=code size=1 maxlength=4>&nbsp;请输入：
    <span style="background-color: #DAEADA;line-height:200%"><font size=2><%=session("code")%></font></span></td></tr>
    <tr><td width="15%" valign="top" align="right">留言内容：</td>
      <td width="55%" valign="top">
      <textarea name=text1 cols="60" rows="10" onKeyDown="showLen(this)" onKeyUp="showLen(this)"></textarea></td>
      <td width="30%" valign="top"><br>当发生以下情况：<li>忘记了你的密码的时候。</li><li>网上成绩与成绩单不一致。</li><li>发现本系统存在漏洞。</li>
        <br>请留言。谢谢！
        <br><br>
        <p>当前字数<span id="bodyLen">0</span> | 最大值：<font color=red>250</font>个</p></td>
</tr>
<tr><td align=right>学号：</td><td colspan="2">
<input name="xh" size=10 maxlength=12 value="<%=request.querystring("xh")%>">&nbsp;&nbsp;<input type="submit" name="submit" width="20" value="　提交留言　">
  <input type="reset" name="submit2" width="20" value="　清空重填　">
  <input type="button" onClick="history.back()" value=" 返回 ">
  <input type=hidden name="method" value="1">
  </td></tr>

</table>
</form>
</td></tr></table>


      </td>
    </tr>
</table>
<!-- #include file="inc/copyr.asp" -->