📄 studentcardadd.asp
字号:
<% Set hdobj = Server.CreateObject("HD.comOpen")'请确保此行在最前
Connkaa = hdobj.WeekaaConn()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>红笛软件</title>
<script language=javascript>
function winclose() {
window.opener.location.reload();
window.close();
}
</script>
<style type="text/css">
<!--
body,td,th {
font-size: 12px;
}
-->
</style></head>
<body>
<div align="center">
<%
tab="stuCard"
Set stv = Server.CreateObject("ADODB.RecordSet")
sqstv = "Select * From [sets] where TB='"&tab&"'"
stv.Open Sqstv,Connkaa,1,3
Na=request.QueryString("n")
ID=request.QueryString("ID")
set rc=Server.CreateObject("ADODB.RecordSet")
sqlc = "Select * From [stuCard] where ID="&ID
rc.Open Sqlc,Connkaa,1,3
if request.QueryString("ac")="" then
response.write "<form name='form1' method='post' action='?ac=ac&ID=" & ID & "&n=" & Na & "'>"
response.write "请输入" & stv(Na) & "编号"
response.write "<br><br><input name='La' type='text' id='La' value=" & rc(Na) & ">"
response.write "<input type='submit' name='Submit' value='提交'></form>"
else
La=request.form("La")
if La="" then
La="未发证"
end if
rc(Na)=La
rc.update
response.write "<script language=javascript>"
response.write "winclose();"
response.write "</script>"
end if
%>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -