您现在的位置： 
27: call ShowInfo("新输入的密码错误，请重新输入！",1)
28: end if
29: end if
30: else
31: GetDetails
32: end if
33:
34: %>
程序说明
第20行：判断输入的密码与表内存储的原始密码是否相同。
第23行：判断两次输入的密码内容是否相同。
ChgPasswd.asp 程序段
36: <% Function GetDetails %>
37:
38: <
39: <TITLE>系统信息管理</TITLE>
40: <style TYPE="text/css">
41: <!--
42: .tsize {font-size:10pt;color:white;letter-spacing:1pt;}
43: .ChiDingtitle { font-size: 16pt; color: #44FF00}
44: .banner {font-size:9pt;color:blue;letter-spacing:1pt;}
45: .banner1 {font-size:9pt;color:blueviolet;letter-spacing:1pt;}
46: a { text-decoration:none; }
47: -->
48: </style>
49: </HEAD>
50: <BODY>
51:
52: <center class="ChiDingTitle"><系统信息更改 ></center>
53:
54: <form method="post" id=form1 name=form1>
55: <table Border=1 border=0 cellpadding=1 cellspacing=1 align=center>
56: <tr align="left" bgcolor="CornflowerBlue">
57: <td class="tsize" width="60">帐户名称</td>
58: <td class="tsize" width="300"><input type= "text" name="UserAccount" Value="<%= UserAccount %>" Size="20"> </td>
59: </tr>
60: <tr align="left" bgcolor="CornflowerBlue">
61: <td class="tsize" width="60">原始密码</td>
62: <td class="tsize" width="300"><input type="pass word" name="SourcePasswd" Value="" Size="20"></td>
63: </tr>
64: <tr align="left" bgcolor="CornflowerBlue">
65: <td class="tsize" width="60">帐户密码</td>
66: <td class="tsize" width="300"><input type="pass word" name="UserPasswd" Value="" Size="20"></td>
67: </tr>
68: <tr align="left" bgcolor="CornflowerBlue">
69: <td class="tsize" width="60">密码确认</td>
70: <td class="tsize" width="300"><input type="pass word" name="UserPasswd1" Value="" Size="20"></td>
71: </tr>
72: <tr align="center" bgcolor=Sienna>
73: <td colspan="2"><Input Type="Submit" Name="Sub-mit" Value="修改确认"> <Input Type="Reset" Name="Reset" Value="重新修改"></td>
74: </tr>
75: </table>
76: </form>
77: </BODY>
78:
79: <% end Function %>
程序说明
本段程序代码其主要功能是提供输入帐号、原始密码、更改后的密码以及新的密码确认等，由于内容同样使用的是HTML语言，因此笔者在此不多做说明。
ChgPasswd.asp 程序段
82: <%
83: Function WriteDatas
84:
85: SQL = "Update 系统信息 set 帐号='" & request.Form("UserAccount") & "',"
86: SQL = SQL & "密码='" & request.Form("UserPasswd") & "'"
87: On Error Resume Next
88: Set Rs = OBJConn.Execute(SQL)
89:
90: end Function
91: %>
92:
程序说明
本段程序代码的功能是更新表字段的内容。目前笔者仅设置为单一帐号的方式，读者如果要求多重登录帐号，也可使用本段程序代码，同时仅做少许程序代码的更改即可达到要求。
15-5 币别信息
通常，管理系统与前台菜单系统所使用的方法有所不同。例如：前台菜单系统使用的是英文网页，但是网页内容的管理员使用的却是中文环境。这个子系统将用到“币别信息”表，以下是这个子系统的执行结果、程序内容以及程序说明。
Currency.asp 程序段
01: <%
02: Response.Expires = 0
03: Response.Buffer = "False"
04:
05: if request.form("Submit") <> "" then
06: select case trim(request.form("Submit"))
07: case "新增币别"
08: CreateNewCurrency
09: case "确认删除"
10: DeleteCurrency
11: case "修改确认"
12: ModifyCurrency
13: end select
14: else
15: mainfunction
16: end if
17: %>
程序说明
第6~13行：用以判断管理员按下的按钮功能。
第7~8行：如果是单击“新增币别”按钮，则调用自定义函数“CreateNewCurrency”，执行输入字段内容的判断与数据的写入。
第9~10行：如果是单击“确认删除”按钮，则调用自定义函数“DeleteCurrency”，执行币别信息的删除。
第11~12行：如果是单击“修改确认”按钮，则调用自定义函数“ModifyCurrency”，执行币别信息的更新。
Currency.asp 程序段
36: <BODY>
37: <center>
38: <form method="post">
39: <table border="1" bgcolor='tan'>
40: <% ShowDatas %>
41: <tr><td colspan="2" class='ChiDingSt02' bgcolor='tan' valign=middle>新增币别</td>
42: <td colspan="3" class='ChiDingSt02' bgcolor='tan' valign="top">
43: 币别：<input type="text" Name="NewCurrency" Value="" Size="6" maxlength="6">
44: 中文缩写：<input type="text" NAme="NewCurrencyInfo" Value="" Size="10" maxlength="10">
45: </td></tr>
46: <tr><td colspan="5" align=center><input type="Submit" Name="Submit" Value="新增币别"></td></tr>
47: </table>
48: </form>
49: </BODY>
50: </HTML>
程序说明
第40行：调用第57~83行的自定义函数“ShowDatas”，显示所有的Recordset 内容。
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>
