?? connectdb_login.asp
字號(hào):
<% Response.Buffer = True %>
<%
Function ConnCheckKey(sFlag)
Dim cCheckKey
Dim sRet
Dim sStr
set cCheckKey=server.CreateObject("LKOAPubFun.LKOACheckKey")
sRet=cCheckKey.CheckKey (&HC44C,&HC8F8,"Active")
set ccheckkey=nothing
select case sRet
Case "SUCCESS"
sStr="OK"
ConnCheckKey=3
Case "NOFILE"
sStr="系統(tǒng)文件丟失,不能使用"
ConnCheckKey=1
Case else
sStr="沒有注冊(cè),軟件已使用" & sRet & "天,還能使用" & 30-sRet & "天"
if sRet>30 or sRet<0 then
ConnCheckKey=2
sStr="OK"
else
ConnCheckKey=0
end if
end select
if sFlag = "ShowMsg" then
if sStr<>"OK" and sStr<>"NOFILE"then
Response.Write "<SCRIPT LANGUAGE=VBscript>" & vbcrlf
Response.Write "<!--" & vbcrlf
Response.Write "msgbox """ & sStr & """,,""請(qǐng)及時(shí)注冊(cè)""" & vbcrlf
Response.Write "//-->" & vbcrlf
Response.Write "</SCRIPT>" & vbcrlf
end if
end if
end function
Dim CheckKeyStr
CheckKeyStr = ""
CheckKeyStr = ConnCheckKey("No")
if CheckKeyStr <> 0 then
if CheckKeyStr =1 then
Response.Write "<p><Font color=red size=2><B>系統(tǒng)文件丟失,不能使用,建議重新安裝聚源數(shù)據(jù)辦公助手。</B></font></p>"
end if
if CheckKeyStr =2 then
'Response.Write "<p><Font color=red size=2><B>軟件沒有注冊(cè),請(qǐng)及時(shí)注冊(cè)!</B></font></p>"
end if
if CheckKeyStr =3 then
Response.Write "<p><Font color=red size=2><B>非法注冊(cè)!請(qǐng)購(gòu)買正版軟件!</B></font></p>"
end if
'Response.End
end if
Dim Conn
on error resume next
Set Conn=server.CreateObject ("ADODB.CONNECTION")
'Response.Write Application("ConnectString")
conn.open Application("ConnectString")
if Err<>0 then
%>
<script language="vbscript">
msgbox "無(wú)法連接數(shù)據(jù)庫(kù)!錯(cuò)誤信息:" & chr(13) & chr(13) & "<%=Err.Description%>",vbCritical,"錯(cuò)誤"
</script>
<%
Response.End
end if
on error goto 0
%>
<%
Function conStr(data)
dim res1,res2,cons
on error resume next
res1=instr(1,data,"<",1)
if res1<>0 then
cons = replace(data,"<","<")
else
cons=data
end if
res2=instr(1,cons,">",1)
if res2<>0 then
cons = replace(cons,">",">")
else
cons=cons
end if
constr = Replace(cons,"'","''")
End Function
function constr1(data)
constr1=replace(data,"'","''")
end function
function constri(data)
dim res1,res2,cons
res1=instr(1,data,"<",1)
if res1<>0 then
cons = replace(data,"<","<")
else
cons=data
end if
res2=instr(1,cons,">",1)
if res2<>0 then
cons = replace(cons,">",">")
else
cons=cons
end if
constri=cons
end function
function constrj(keybord)
constrj = replace(data,">",">")
end function
%>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -