adkqsz.asp
来自「医院医技科室系统,可以进行医技报告的生成打印,完全的BS结构」· ASP 代码 · 共 106 行
ASP
106 行
<%@ Language=VBScript %>
<!-- #INCLUDE FILE="../../share\connectdb3.asp" -->
<!--#include file=../../pubfunction.asp-->
<% if session("yhid")="" then
Response.Write "请重新登录！"
Response.End
end if
%>
<HTML>
<HEAD>
<META name=VI60_defaultClientScript content=VBScript>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="stylesheet" type="text/css" href="../../style/style.css" >
<link rel="stylesheet" type="text/css" href="../../style/table.css" >
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
sub cmdqd_onclick
if msgbox("确定要修改读卡器设置？",vbyesno+vbinformation,"提示")=vbyes then
dim j,i
i=0
j=0
do while j<2
if rd2(j).checked=true then exit do
j=j+1
loop
do while i<6
if rd1(i).checked=true then exit do
i=i+1
loop
i=i+1
'if cint(i)=5 then i=100
'if cint(i)=6 then i=101
Set FSO = CreateObject("Scripting.FileSystemObject")
set ts=fso.CreateTextFile("c:\card\comx.txt",true)
ts.WriteLine "iccomx="&i
ts.WriteLine "ictype="&j
ts.close
set fso=nothing
msgbox "读卡器设置修改完成！",64,"提示"
end if
end sub
</SCRIPT>
</HEAD>
<BODY background=../../images/bj.gif>
<P> </P>
<P> </P>
<P>
<center>
<table border=1 bgcolor="<%=tableBGCOLOR%>" width=300 cellspacing=0 cellpadding=1 bordercolorlight="#000000" bordercolordark="#FFFFFF" >
<tr class=ListCellRow bgcolor="<%=tableHBGCOLOR%>" ><TD nowrap align=left width=100%><img src="../../images/jk.GIF" width='24px' height='24px'>读卡器设置<font color="<%=tableHFONTCOLOR%>">-<%=session("yhm")%>
<img src="../../images/qp.GIF" width='20px' height='20px' style='cursor:hand' alt='重新登录' onclick=javascript:allwindow()>
<img src="../../images/gb.gif" width='20px' height='20px' style='cursor:hand' alt='关闭' onclick=javascript:closewindow()> </td></tr>
<tr><td align=center>
<TABLE border=0 width="100%">
<TR>
<TD align="center"><INPUT type="radio" id=rd1 name=rd1>COM1</TD><TD align="center"><INPUT type="radio" id=rd2 name=rd2 >XJX&MW</TD></TR>
<TR>
<TD align="center"><INPUT type="radio" id=rd1 name=rd1>COM2</TD><TD align="center"><INPUT type="radio" id=rd2 name=rd2>XJX&CW</TD></TR>
<TR>
<TD align="center"><INPUT type="radio" id=rd1 name=rd1>COM3</TD><TD> </td></TR>
<TR><TD align="center"><INPUT type="radio" id=rd1 name=rd1>COM4</TD><TD> </td></TR>
<TR><TD align="center"><INPUT type="radio" id=rd1 name=rd1>USB1</TD><TD> </td></TR>
<TR><TD align="center"><INPUT type="radio" id=rd1 name=rd1>USB2</TD><TD> </td></TR>
</TABLE></td></tr>
<tr><td align=center bgcolor=white>
<table border=0><tr><td onclick=vbscript:cmdqd_onclick style="cursor:hand" class="buttons02" align=center width=50 height=20>确 定
</td></tr></table>
</td></tr></table>
</center>
<script language=vbscript>
dim fso,ts,i
Set FSO = CreateObject("Scripting.FileSystemObject")
if fso.FileExists("c:\card\comx.txt") then
Set ts = fso.OpenTextFile("c:\card\comx.txt", 1)
do while ts.atendofstream<>true
iccomx=ts.readline
if left(trim(iccomx),6)="iccomx" then
i=right(iccomx,1)
i=i-1
rd1(i).checked=true
elseif left(trim(iccomx),6)="ictype" then
i=right(iccomx,1)
i=cint(i)
' msgbox i
rd2(i).checked=true
end if
loop
ts.close
else
set ts=fso.CreateTextFile("c:\card\comx.txt",true)
ts.WriteLine "iccomx=2"
ts.WriteLine "ictype=0"
rd2(0).checked =true
rd1(1).checked=true
ts.close
end if
</script>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?