📄 telecom.htm
字号:
<html>
<head>
<!--
This Page only support Internet Explorer version 4.0 above
-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="CICS EasyCICS OLE ACTIVEX">
<title>EasyCICS演示：查询费用</title>
<style type="text/css">
<!--
input{font-family:"宋体","Times New Roman"; font-size:12pt; }
-->
</style>
<SCRIPT LANGUAGE=VBSCRIPT>
set oEc= CreateObject( "EasyCics.App" )
'*
'*
sub About()
oEc.About
end sub
'*
'*
sub ClrInput()
document.frmQuery.txtNumber.value =""
document.frmQuery.taContent.value =""
end sub
'*
'*
sub QueryNo()
document.frmQuery.taContent.value =""
r= oEc.ConnectServer("CICSNT01", "TEST", "TEST")
if r<>0 then
MsgBox "Error when Connect, ReturnCode=" & r
exit sub
end if
oEc.BeginWrite
s = document.frmQuery.txtNumber.value
oEc.SetValue "NO", s
oEc.CallProgramAndCommit "TELECOM"
rs= oEc.GetErr()
if rs<>"" then
MsgBox "Error when CallProgram, ReturnCode=" & rs
exit sub
end if
'''''''''''''''''''''''''''''''''''''
oEc.RsOpen
rc = oEc.RsGetRowNum
cc = oEc.RsGetColNum
s = ""
For i = 1 To rc
oEc.RsFetchRow
For j = 1 To cc
s = s + oEc.RsGetCol(j) + ","
Next
s = s + chr(13) + chr(10)
Next
document.frmQuery.taContent.value =s
end sub
</SCRIPT>
</head>
<body bgcolor="#FFFFCC" text="#510000" link="#999900" vlink="#CC9966" alink="#990066">
<p> </p>
<form name="frmQuery" method="GET" action="Telecom.htm"><table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr><td align="center">
<table><tr>
<td><img src="query.gif" alt="a sample using EasyCICS"> </img></td>
<td><font size=5 face="黑体" color="#CC9933"><strong>EasyCICS演示：查询费用</strong></font></td>
</tr></table>
</td></tr>
<tr><td>
<hr>
</td></tr>
<tr><td align="center">
<table><tr>
<td nowrap align="right">请输入号码:</td>
<td><input type=text name="txtNumber" MAXLENGTH="7" size="10"></td>
<td> </td>
<td><input type="button" value="查询" name="B1" onclick="QueryNo"></td>
<td><input type="button" value="清除输入" name="B2" onclick="ClrInput"></td>
<td> </td>
<td><input type="button" value="关于" name="B3" onclick="About"></td>
</tr></table>
</td></tr>
<tr><td>
</td></tr>
<tr><td align="center" valign="bottom">
<textarea rows="10" name="taContent" cols="90" style="font-size:11pt;"></textarea>
</td></tr>
</table></form>
<hr>
<address>
Created by Liu Rui<BR>
Last modified on 14 Jun 1999
</address>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -