?? dlwz.prg
字號:
* 網站登錄 Start create date: 2003.9.20 Last edit date: 2003.11.1
DEFINE CLASS dlwz As Session OLEPUBLIC && 指定為com類型
DataSession=2 && 使用私有工作期
***********************************************************************************************************************
FUNCTION indexdl() as String
TEXT TO cHtml TEXTMERGE noshow
<html><head><title> 系統登錄</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head><body>
<table width=760 border=0 bgcolor=#164DA8 cellspacing=1 cellpadding=2 align=center>
<tr bgcolor=white><td valign=center ><img src="image/ASPLogo3.jpg" width=730 height=56></td></tr></table>
<table width="760" border="0" bordercolor="#164DA8" align="center" cellpadding="0" cellspacing="0">
<tr><td height="13"><img src="image/banner2.jpg" width="758" height="12"></td></tr></table><br>
<table width=760 border=0 bgcolor=#164DA8 cellspacing=1 cellpadding=2 align=center>
<tr><td colspan=3><font color=white><P ALIGN="CENTER">VFP 狐貍辦公信息管理系統(測試版)->登錄頁面</font></td></tr><tr bgcolor=white >
<td><a href="javascript:history.back()"><font color="#104DAD">返回上一級網頁</font></a></td>
<td align=center><font color="#104DAD" >     歡迎使用本系統     </FONT></td>
<td align=right><a href="Help.asp"><font color="#104DAD">系統使用說明</font></a></td></tr></table>
<table width="760" border="0" bordercolor="#164DA8" align="center" cellpadding="0" cellspacing="0">
<tr><td height="13"><img src="image/banner2.jpg" width="758" height="12"></td></tr></table><br>
<table width=760 border="0" align=center bgcolor=#3466BB height=265><tr bgcolor=white>
<td align=middle bgcolor=#B6CAEB class=itm height="8" colspan="2">
<br><font color="#104DAD">請在下面填寫登錄信息</font><br><br><br>
<div align="center">
<form name="form" method="post" action="dl.asp">
<p><font color="#3466BB">用戶 </font><input id="rbc" name="rbc" size=15></p>
<p><font color="#3466BB">口令 </font><input id="rkl" name="rkl" size=15 type=password><br><br>
<input type="submit" name="Login" value="登錄" style="border: 1px solid #B6CAEB; background-color: #3466BB; color: #FFFFFF">
<input type="reset" name="Reset" value="重設" style="border: 1px solid #B6CAEB; background-color: #3466BB; color: #FFFFFF">
</p></form></div></td></tr></table></body></html>
ENDTEXT
RETURN cHtml
ENDFUNC
***********************************************************************************************************************
FUNCTION dl(u1 as string, p1 as string) as String && 登錄驗證函數
SET DEFAULT TO D:\WEBTRADE\ && 指定rksvr.ini所在目錄
SET DELETED ON
DECLARE INTEGER GetPrivateProfileString IN Win32API AS GetPrivStr ;
String cSection, String cKey, String cDefault, String @cBuffer, ;
Integer nBufferSize, String cINIFile
LOCAL lcSection, lcKey, lcBuffer, lcFileName, zipdir
lcBuffer = SPACE(254)
lcFileName = "Rksvr.ini"
lcSection = "syspath"
lcKey = "數據"
GetPrivStr(lcSection, lcKey, "", @lcBuffer, LEN(lcBuffer), CURDIR()+lcFileName)
zipdir=subst(allt(lcBuffer),1,len(allt(lcBuffer))-1)
SET DEFAULT TO (ALLT(zipdir)) && 指定網站數據庫所在目錄
LOCAL cHtml as String
SET TEXTMERGE DELIMITERS TO "##","##" && 新的文本合并分隔符為 ## ##
IF !USED('userinfo')
USE userinfo IN 0 && No. 1
ENDIF
sele userinfo
go top
LOCATE FOR ALLT(user_id)==ALLT(u1) and ALLT(pass_word)==ALLT(p1) && 查詢登錄人員及密碼是否正確
IF FOUND() AND !EMPTY(u1) && 如果查詢成功
cHtml = this.dlym(u1,p1) && 顯示符合登錄人員身份及級別的相應的網頁
ELSE
cHtml = this.dlcw() && 否則顯示出錯網頁
ENDIF
use
RETURN cHtml
ENDFUNC
********************************************************************************************************************
HIDDEN FUNCTION dlym(u1 as String,p1 as String) as String && 生成登錄后asp頁面函數，外部不可見
LOCAL cResult as String, renk_cscjy as String, renk_test as String, renk_blank as String
SET TEXTMERGE DELIMITERS TO "##","##" && 文本合并分隔符為 ## ##
Local xm, userpower, myts, renk_cscjy, renk_test, renk_blank
SET DELETED ON
renk_cscjy = ""
renk_test = ""
renk_blank = ""
IF !USED('userinfo')
USE userinfo IN 0 && No. 1
ENDIF
sele userinfo
go top
LOCATE FOR ALLT(user_id)==ALLT(u1) and ALLT(pass_word)==ALLT(p1) && 查詢登錄人員
xm = ALLT(user_name) && 姓名
userpower = ALLT(user_power) && 權限
use
do case
case (time() >= "00:00:00") and (time() < "01:00:00")
myts="該休息了哦，都轉點了"
case (time() >= "01:00:00") and (time() < "03:30:00")
myts="深夜好"
case (time() >= "03:30:00") and (time() < "05:00:00")
myts="凌晨好"
case (time() >= "05:00:00") and (time() < "09:00:00")
myts="早上好"
case (time() >= "09:00:00") and (time() < "12:00:00")
myts="上午好"
case (time() >= "12:00:00") and (time() < "18:00:00")
myts="下午好"
case (time() >= "18:00:00") and (time() < "22:45:00")
myts="晚上好"
otherwise
myts="已經很晚了哦，注意休息啊"
endcase
TEXT TO cResult TEXTMERGE noshow
<html>
<head>
<title>VFP 狐貍辦公信息管理系統(測試版)</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<table width=760 border=0 bgcolor=#164DA8 cellspacing=1 cellpadding=2 align=center>
<tr bgcolor=white><td valign=center ><img src="image/ASPLogo3.jpg" width=730 height=56></td></tr>
</table>
<table width="760" border="0" bordercolor="#164DA8" align="center" cellpadding="0" cellspacing="0">
<tr><td height="13"><img src="image/banner2.jpg" width="758" height="12"></td></tr>
</table>
<br>
<table width=760 border=0 bgcolor=#164DA8 cellspacing=1 cellpadding=2 align=center>
<tr><td colspan=3>
<font color=white>
<P ALIGN="CENTER">VFP 狐貍辦公信息管理系統(測試版)->主頁 [當前用戶-##xm##]
</font></td></tr>
<tr bgcolor=white >
<td><a href="about.asp"><font color="#104DAD">關于辦公系統</font></a></td>
<td align=center><font color="#104DAD" >請選擇您想進入的功能模塊</FONT></td>
<td align=right><a href="help.asp"><font color="#104DAD">使用幫助說明</font></a></td>
</tr>
</table>
<table width="760" border="0" bordercolor="#164DA8" align="center" cellpadding="0" cellspacing="0">
<tr><td height="13"><img src="image/banner2.jpg" width="758" height="12"></td></tr>
</table>
<br>
<table width=760 border=0 bgcolor=#164DA8 cellspacing=1 cellpadding=2 align=center>
<tr bgcolor=white height=40 background="image/back.jpg"><td width=45% align=center bgcolor=#ADBEDE>
<img src="image/HomepagePicture.jpg">
</td>
<td>
<table width=100% border=0>
<tr><td><p align=center><img src="image/lable.jpg" ><br></p></td></tr>
<tr height=20><td><marquee p align=center>
<font color="#104DAD">##xm##
<script LANGUAGE="JavaScript">
var myweekday="";
var year="";
mydate=new Date();
myweekday=mydate.getDay();
mymonth=mydate.getMonth()+1;
myday= mydate.getDate();
myyear= mydate.getYear();
year=(myyear > 200) ? myyear : 1900 + myyear;
if(myweekday == 0)
weekday=" 星期天 ";
else if(myweekday == 1)
weekday=" 星期一 ";
else if(myweekday == 2)
weekday=" 星期二 ";
else if(myweekday == 3)
weekday=" 星期三 ";
else if(myweekday == 4)
weekday=" 星期四 ";
else if(myweekday == 5)
weekday=" 星期五 ";
else if(myweekday == 6)
weekday=" 星期六 ";
</script>
，##myts##
<script LANGUAGE="JavaScript">
document.write("。歡迎您訪問內網! 今天是"+year+"年"+mymonth+"月"+myday+"日"+weekday);
</script></marquee>
</font>
</p></td></tr>
ENDTEXT
if "B" $ userpower
TEXT TO renk_cscjy TEXTMERGE noshow
<tr bgcolor=white height=45><td align=center>
<a href="CscjyClientInfo.asp"><font color="#104DAD">網上交易客戶資料管理</FONT></a></td></tr>
ENDTEXT
endif
if "C" $ userpower
TEXT TO renk_test TEXTMERGE noshow
<tr bgcolor=white height=45><td align=center>
<a href="OperationTest.asp"><font color="#104DAD">業務知識自我測試系統</FONT></a></td></tr>
ENDTEXT
endif
TEXT TO renk_blank TEXTMERGE noshow
<tr bgcolor=white height=45><td align=center>
<a href="EmployeeInformation.asp"><font color="#104DAD">員工基本信息登記管理</FONT></td></tr>
<tr bgcolor=white height=20></tr>
</table>
</td>
</tr>
</table>
</body>
</html>
</BODY>
</HTML>
ENDTEXT
cResult = cResult + renk_cscjy + renk_test + renk_blank
IF !USED('userinfo')
USE userinfo IN 0
ENDIF
sele userinfo
go top
LOCATE FOR allt(user_id)==ALLT(u1) and ALLT(pass_word)==ALLT(p1) && 查詢登錄人員
if !found()
cResult = this.dlcw()
endif
use
RETURN cResult
ENDFUNC
*******************************************************************************************************************
HIDDEN FUNCTION dlcw() as String && 出錯網頁函數，外部不可見
LOCAL cResult
TEXT TO cResult TEXTMERGE noshow
<html>
<head></head>
<body>
<p align="center"><font color="#FF0000" size="6">登錄失敗！</font></p>
<p></p>
<p align="left"><font color="#FF00FF">原因可能是：</font></p>
<ul>
<li><p style="line-height: 200%"><font color="#FF00FF">用戶名、口令未輸入或輸入錯誤</font></li>
<li><p style="line-height: 200%"><font color="#FF00FF">數據庫出錯或鏈結錯誤</font></li>
<li><p style="line-height: 200%"><font color="#FF00FF">服務器未啟動或出錯</font></li>
<li><p style="line-height: 200%"><font color="#FF00FF">找不到相應的頁面</font></li>
</ul>
<p></p>
<p align="center"><font color="#FF00FF">如果重新登錄，請注意用戶名及口令的大小寫！</font></p>
<p></p><p></p>
<div align="center"><a href="index.asp">返回登錄頁面</a></div>
</body>
</html>
ENDTEXT
RETURN cResult
ENDFUNC
ENDDEFINE?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -