?? bxce.asp
字號:
<% Set hdobj = Server.CreateObject("HD.comOpen")'請保證此行在最前面
Conn = 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;
}
body {
margin-left: 0px;
margin-top: 10px;
margin-right: 0px;
margin-bottom: 0px;
}
-->
</style></head>
<body>
<div align="center">
<%
Na=request.QueryString("n")
ID=request.QueryString("ID")
if ID="" then
response.write "<script language=javascript>"
response.write "winclose();"
response.write "</script>"
response.end
end if
set rc=Server.CreateObject("ADODB.RecordSet")
sqlc = "Select * From [STB] where ID="&ID
rc.Open Sqlc,Conn,1,3
if request.QueryString("ac")="" then
response.write "<form name='form1' method='post' action='?ac=ac&ID=" & ID & "&n=" & Na & "'>"
response.write "輸入已繳金額:"
response.write "<br><input name='La' type='text' id='La' value=" & rc(Na) & " size='10'>"
response.write "<br><input type='submit' name='Submit' value='保存'></form>"
else
La=request.form("La")
rc(Na)=La
rc.update
INFO="修改學生保險數據STB"&ID &"_"&Na&"="&La
call hdobj.infoadd(INFO)
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 + -