⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 dlwz.prg

📁 一个相当不错的BS结构学习源码
💻 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" >&nbsp&nbsp&nbsp&nbsp&nbsp欢迎使用本系统&nbsp&nbsp&nbsp&nbsp&nbsp</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">用户&nbsp</font><input id="rbc" name="rbc" size=15></p>
  <p><font color="#3466BB">口令&nbsp</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 狐狸办公信息管理系统(测试版)->主页&nbsp[当前用户-##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 + -