网络考场（8）（转）taddstudent.asp


答案：<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
if Request.ServerVariables("http_method")="POST" and Request.Form("submit")<>"跳到" then
    '如果按POST方式提交表单内容
    set conn=server.CreateObject("adodb.connection")
    conn.ConnectionString="dsn=testsys"
    conn.Open 
    strstid=Request.Form("stid")
    strstname=Request.Form("stname")
    if Request.Form("submit")="加入" then
    '如果执行加入学生信息的请求
        strsql="select * from studentinfo where stid='" & strstid & "'"
        '根据要加入的学生学号查询数据库的表studentinfo中是否存在该学生的记录
        set mrs1=conn.Execute(strsql)
        if  not(mrs1.BOF and  mrs1.EOF) then
        '如果要加入的学生学号已存在，则提示重新输入信息        
            Response.Write "该学号已经存在，请重新输入学生信息<br>"
            Response.Write "<a href=>        else
        '如果要加入的学生学号不存在，则向数据库中加入该学生信息    
        strsql="insert into studentinfo (stname,stid) values ('" & strstname & "','" & strstid & "')"
        conn.Execute(strsql)
        strstid=""
        strstname=""
        end if
    end if
    if Request.Form("submit")="删除" then
    '如果是删除学生信息请求
        strsql="delete * from studentinfo where stid='" & strstid & "'"
        '删除学生信息
        conn.Execute(strsql)
        '删除学生的考试成绩
        strsql="delete * from score where stid='" & strstid & "'"
        conn.Execute(strsql)
        strstid=""
        strstname=""
    end if
    conn.Close 
    set conn=nothing
    else 
        strstname=Request.QueryString("stname")
        strstid=Request.QueryString("stid")
end if
%>
<FORM action="taddstudent.asp" method=POST id=form1 name=form1>
<P><FONT face="幼圆" size=3 color=Crimson>学生信息</FONT><BR>
<FONT face="" size=3>姓名：
<INPUT id=stname name=stname value=<%=strstname%>></FONT><BR>
<FONT face="" size=3>学号：
<INPUT id=stid name=stid value=<%=strstid%>></FONT>
<FONT face="" size=3> 
<INPUT id=submit1 name=submit type=submit value=加入> 
<INPUT id=submit2 name=submit type=submit value=删除> 
</FONT></P><FONT face="" size=3>
<HR>
</FONT>
<P>
<TABLE border=0 cellPadding=1 cellSpacing=1 width=75%>
    <TR bgcolor=Honeydew>
        <TD>姓名</TD>
        <TD>学号</TD></TR>
<%
set mrs=server.CreateObject("adodb.recordset")
mrs.ActiveConnection="dsn=testsys"
mrs.Source="select * from studentinfo"
mrs.Open ,,1,3
'以下是分页显示学生的姓名与学号
if not mrs.BOF and not mrs.EOF then
    mrs.PageSize=5
    if request("page")<>"" then
        page=cint(request("page"))
    else
        page=1
    end if
    mrs.AbsolutePage=page
    for i=1 to mrs.PageSize 
        if mrs.EOF then
            exit for
        end if
        Response.Write "<TR><TD>"
        '显示学生的姓名，并提供连接，点击该连接，
        '在taddstudent.asp中的文本框中显示该学生的姓名和学号 
        Response.Write "<a href=>        Response.Write "</TD>"
        '显示学生的学号
        Response.Write "<TD>" & mrs("stid") & "</TD></TR>"
        mrs.MoveNext 
    next 
end if
%>
</TABLE>
</P>
<P>
<INPUT id=button1 name=submit type=submit value=跳到> 
<INPUT id=page name=page 
style="HEIGHT: 21px; WIDTH: 46px" value=<%=Request("page")%>>页/共<%=mrs.PageCount%>页
<%
if page>1 then
    '当前页不是是第一页则提供上一页的连接
    Response.Write "<a href=>else
    '否则不提供上一页的连接
    Response.Write "上一页|"
end if
if page<mrs.PageCount then
    '当前页是最后一页则提供下一页连接
    Response.Write "<a href=>else
    '否则不提供下一页连接
    Response.Write "下一页"
end if
'关闭数据库的Recordset对象
mrs.Close 
set mrs=nothing
%>
</P>
</FORM>
</BODY>
</HTML>
上一个：无组件实现文件上传/下载
下一个：网络考场（9）（转）taddsub.asp
更多图片编程知识: