⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 xgxj2.asp

📁 一个优秀的学校学籍,成绩,图书管理系统.有需要的朋友可以来看看.是完整代码.
💻 ASP
字号:
🔍 
<!--#include file="pwd.asp" -->
<!--#include file="xmgl_conn.inc" -->
<%
cxh=request("txh")
sql="select * from "&session("bjdm")&" where xh='"&cxh&"'"
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.Open sql, xmgl_conn
cxm=rs("xm")
cxb=rs("xb")
crq=rs("rq")
cdz=rs("dz")
cyb=rs("yb")
cdh=rs("dh")
ccj=rs("cj")
rs.close
set rs=nothing
%>
<html>
<head>
<meta http-equiv="Content-Type"
content="text/html; charset=gb_2312-80">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title>修改“<%=session("xzbj")%>”学籍</title>
</head>
<body bgcolor="#C0C0C0">
<h3 align="center">修改“<%=session("xzbj")%>”学籍</h3>

<form name="myform" action="xgxj3.asp" method="POST">

	<center><table border="1" cellpadding="1"
    cellspacing="2" width="98%">
        <tr>
            <td align="right" width="5%">学号：</td>
            <td align="left" width="7%"><%=cxh%>　</td>
            <td align="right" width="5%">姓名：</td>
            <td align="left" colspan=3><%=cxm%>　</td>
        </tr>

		<tr>
            <td align="right" width="5%">性别：</td>
            <td align="left" width="7%">
			<%
			if cxb="女" then %>
				<input type="radio" name="txb" value="男">男 &nbsp;&nbsp;
				<input type="radio" checked name="txb" value="女">女
			<% else %>
				<input type="radio" checked name="txb" value="男">男 &nbsp;&nbsp;
				<input type="radio" name="txb" value="女">女
			<% end if %>
			
			</td>
            <td align="right" width="5%">出生日期：</td>
            <th align="left" colspan=3><input type="text" size="10" name="trq" value="<%=crq%>">
			</th>
        </tr>
        <tr>
            <td align="right" width="5%">通讯地址：</td>
            <th align="left" colspan=5>
			<input type="text" size="50" name="tdz" value="<%=cdz%>">
			　</th>

        </tr>
        <tr>
            <td align="right" width="5%">邮编：</td>
            <td align="left" width="7%">
			<input type="text" size="7" name="tyb" value="<%=cyb%>"> 
			　</td>
            <td align="right" width="5%">电话：</td>
            <td align="left" width="7%"><input type="text" size="20" name="tdh" value="<%=cdh%>">
			</td>
            <td align="right" width="4%">入学成绩：</td>
            <td align="left" width="4%">
			<input type="text" size="5" name="tcj" value="<%=ccj%>">
			</td>
        </tr>
    </table>
    </center>

<input type="hidden"  name="txh" value=<%=cxh%>>
<p align="center">
<input type="button" name="cmd" value="  确 定  ">&nbsp;&nbsp;
<input type="reset"  name="cmd2" value=" 取 消 "></p>
</form>

<script language="vbs">
sub cmd_onclick
set oform=document.myform

orq=trim(oform.trq.value)
oyb=trim(oform.tyb.value)
odh=trim(oform.tdh.value)
ocj=trim(oform.tcj.value)
if orq="" then
	msgbox "出生日期未输入!",,"修改学籍"
elseif not isdate(orq) then
	msgbox "日期输入错误!",,"修改学籍"
elseif not (oyb="") and not isnumeric(oyb) then
	msgbox "邮编错误!",,"修改学籍"
elseif not (odh="") and not isnumeric(odh) then
	msgbox "电话错误!",,"修改学籍"
elseif not (ocj="") and not isnumeric(ocj) then
	msgbox "成绩错误!",,"修改学籍"
else
	'tt=msgbox ("确定修改吗?",4,"修改学籍")
	'if tt="6" then
		oform.submit
	'end if
end if
end sub
</script>

<p align="center"><a href="xgxj1.asp">返回</a></p>
</body>
</html>

⌨️ 快捷键说明

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