?? install.asp
字號:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
set check=server.CreateObject ("eprojm.epro")
set connbj=server.CreateObject ("adodb.connection")
connbj.Open "DSN=Web ORA;UID=zj;PWD=zj;"
connbj.Execute "delete from tbaccount"
set rs=server.CreateObject ("adodb.recordset")
rs.Open "select * from tbaccount",connbj,1,3
set fso=server.CreateObject ("Scripting.filesystemobject")
set file=fso.OpenTextFile ("c:\account.txt",1)
x=cstr(file.readline)
do while not left(x,18)="999999999999999999"
cardnum=left(x,18)
password=left(right(x,15),6)
remains=right(x,9)
username=left(mid(x,19),len(x)-33)
rs.AddNew
rs(0)=cardnum
rs(1)=username
rs(2)=check.epropassword (cardnum,password)
rs(3)=check.eproremains (cardnum,remains)
rs(4)="000000000"
rs(5)="0"
rs(6)=check.eprocmp (cardnum)
rs.Update
x=cstr(file.readline)
loop
file.close
set file=nothing
set fso=nothing
rs.Close
set rs=nothing
Response.Write "ok"
connbj.Close
set connbj=nothing
%>
<P> </P>
</BODY>
</HTML>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -