ASP医药网站
2012-04-06 25页 doc 130KB 23阅读
is_138464
暂无简介
举报
1、硬件系统：
由于本系统需要利用Internet实现信ASP医药网站
息的传递，系统采用客户机与服务器的连接，为了方便用户，可以使核心数ASP医药网站
据处理使用总公司的服务器执行，用户端只需配置基本上网必备的硬ASP医药网站
件即可；因为考虑到网上订房使公司的业务量增大，公司需要至少1台ASP医药网站
硬件配置较优的服务器。
2、软件系统
ASP医药网站
; 关于软件系统，客户机所使用ASP医药网站
的系统
3、系统结构
范围分析图（CAASP医药网站 D）
数据流图（DFD）
&nASP医药网站 bsp; 顶层dfd:
细化dfd:ASP医药网站
ER图
ASP医药网站
五、部分源代码：
(1) ASP医药网站
;使用的的连接字符串为：conn
Provider=SQLOASP医药网站
LEDB;DATASOURCE=127.0.0.1;UID=sASP医药网站
a;PWD=;database=webhotel
(2)&nASP医药网站
bsp;注册部分：Register.asp
核心代码：
* &nbsASP医药网站
p; 判断用户名是否重复 &nASP医药网站
bsp; *
***********************ASP医药网站
*******
If (CStr(Request(MM_flaASP医药网站
g)) <> "") Then
ASP医药网站
MM_rsKeyConnection=MM_conn_STASP医药网站
RING
MM_dupKeyUsernameASP医药网站
Value = CStr(Request.Form("cUsASP医药网站
erName"))
MM_dupKeySQLASP医药网站
="SELECT cUserName FROM dbo.custoASP医药网站
mer WHERE cUserName='" & MM_duASP医药网站
pKeyUsernameValue & "'"
&nASP医药网站
bsp; MM_adodbRecordset="ADODB.ASP医药网站
Recordset"
set MM_rsKeASP医药网站
y=Server.CreateObject(MM_adodbRASP医药网站
ecordset)
MM_rsKey.AASP医药网站
ctiveConnection=MM_rsKeyConnectiASP医药网站
on
MM_rsKey.Source=MM_duASP医药网站
pKeySQL
MM_rsKey.CursorASP医药网站
Type=0
MM_rsKey.CursorASP医药网站
Location=2
MM_rsKey.LockASP医药网站
Type=3
MM_rsKey.Open
************************ASP医药网站
******
* &nbsASP医药网站
p; 发现用户名重复 &nbASP医药网站
sp; *
*ASP医药网站
*****************************
MASP医药网站
M_qsChar = "?"
&nASP医药网站
bsp; If (InStr(1,MM_dupKeyRedirASP医药网站
ect,"?") >= 1) Then MM_qsChar ASP医药网站
= "&"
MMASP医药网站
_dupKeyRedirect = MM_dupKeyRedireASP医药网站
ct & MM_qsChar & "requASP医药网站
sername=" & MM_dupKeyUsernaASP医药网站
meValue
ASP医药网站
Response.Write("注册失败")
ASP医药网站
End If
&nbsASP医药网站
p; MM_rsKey.Close
End IASP医药网站
f
ASP医药网站
; （3）登录部分：User_LogASP医药网站
in.asp
加密模块的创建 ASP医药网站
为了保证数据库的安全，多处使用了加密算法。创建加密模ASP医药网站 块的目的就是为了方便在应用程序中引用加密过程，模块文件名为“cryASP医药网站 pt”。加密模块包括加密和解密两个子程序，是一对可逆的过程，代ASP医药网站 码如下：
unit crypt;
USES
const
&nbASP医药网站 sp; C1 = 52845;
&nASP医药网站 bsp; C2 = 22ASP医药网站 719;
function Encrypt( ASP医药网站 S: String; Key:
): String;ASP医药网站function Decrypt( S: StringASP医药网站 ; Key: Word): String;
impASP医药网站 lementation
function EncASP医药网站 rypt( S: String; Key: Word): StrinASP医药网站 g;
var
&ASP医药网站 nbsp; I: Integer;
&nASP医药网站 bsp; j: Integer;
begin Result := S; for I := 1 to Length(SASP医药网站
) do begin ASP医药网站
Result[I] := char(byteASP医药网站
(S[I]) xor (Key shr 8)); ASP医药网站
Key := (byte(Result[I])ASP医药网站
+ Key) * C1 + C2; &nbsASP医药网站
p;end; s:=Result; Result:=''; for i:=1 to length(s) dASP医药网站
o begin &nASP医药网站
bsp; j:=Integer(s[i]); end; end;ASP医药网站
function Decrypt( S: StrASP医药网站
ing; Key: Word): String;
I: InteASP医药网站 ger;
j: IASP医药网站 nteger;
begin
&nbASP医药网站 sp;result:='';
foASP医药网站 r i:=1 to (length(s) div 2) do
begin
&nbASP医药网站 sp; j:=(Integer(s[2*i-1])-65)*26;ASP医药网站
j:=j+(Integer(s[2*ASP医药网站 i])-65);
result:=ASP医药网站 result + Char(j);
&nbsASP医药网站 p;end;
s:=result;ASP医药网站
for I := 1 to LASP医药网站 ength(S) do
begin
Result[I] := char(ASP医药网站 byte(S[I]) xor (Key shr 8));
Key := (byte(S[I]ASP医药网站 ) + Key) * C1 + C2;
end;
end;
4.6.10登录窗口的创建
登录窗口如图
（1） 操作列表的创建
操作列表(ActionList) 类似于一个个子程序的有序组合，可以将菜单和按扭的ActionList属性梆定到操作列表中的某个操作。当单击菜单或按扭时就执行该操作。Delphi为我们提供了多类标准的操作，使用这些操作可以大大简化编程。在主窗体上创建一个ActionList对象，然后双击，即会出现编辑界面。右键单击界面空白处，在弹出菜单中有两项“New Action”和“New Standard Action”。
前面一项用于创建自定义操作，后一项用于引用标准操作。引用了4项标准的窗口操作。
操作属性表
浙公网安备 33021202002483