?? stunewadd.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="stuOuts"
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 [stuOuts] 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 "辦理完畢請輸入:ok"
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="" or La="未辦" or La="未辦理" or La="未" or La="沒" or La="no" then
La="未辦"
else
La=La '& session("AdminUser")
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 + -