五、ASP程序的编撰 

1.VBS学习01_开关事件调用

(1) ListCdInformation.asp 程序 

图片 1图片 2Code
图片 3<HTML>
图片 4<HEAD>
图片 5<TITLE>VBS学习01_按键事件调用</TITLE>
图片 6图片 7<SCRIPT LANGUAGE=”VBScript”>图片 8
图片 9<!–
图片 10Sub ButtonX_OnClick
图片 11    MsgBox “Hello,World!”
图片 12End Sub
图片 13–>
图片 14</SCRIPT>
图片 15</HEAD>
图片 16<BODY>
图片 17<FORM NAME=”Form1″>
图片 18
图片 19<INPUT NAME=”Button1″ TYPE=”BUTTON”
图片 20       VALUE=”按钮1″ OnClick=’MsgBox “Hello,World!.1″‘>
图片 21
图片 22<INPUT NAME=”Button2″ TYPE=”BUTTON” VALUE=”按钮2″>
图片 23图片 24<SCRIPT LANGUAGE=”VBScript” EVENT=”OnClick” FOR=”Button2″>图片 25
图片 26<!–
图片 27    MsgBox “Hello,World!.2”
图片 28–>
图片 29</SCRIPT>
图片 30
图片 31<INPUT NAME=”Button3″ TYPE=”BUTTON” VALUE=”按钮3″ OnClick=”Button3OnClick()” >
图片 32图片 33<SCRIPT LANGUAGE=”VBScript”>图片 34
图片 35<!–
图片 36Sub Button3OnClick()
图片 37    MsgBox “Hello,World!.3”
图片 38End Sub
图片 39–>
图片 40</SCRIPT>
图片 41
图片 42<INPUT NAME=”Button4″ TYPE=”BUTTON” VALUE=”按钮4″>
图片 43图片 44<SCRIPT LANGUAGE=”VBScript”>图片 45
图片 46<!–
图片 47Sub Button4_OnClick()
图片 48    MsgBox “Hello,World!.4”
图片 49End Sub
图片 50–>
图片 51</SCRIPT>
图片 52
图片 53</FORM>
图片 54</BODY>
图片 55</HTML>

  这么些程序完毕的是研究数据库,把检索的结果显示为一张表,使用了刚刚我们定义的构件。它展开表,然后列举每一张CD的新闻。 

2.VBS学习02_付给前非空相关认证

<% 

图片 56图片 57Code
图片 58<HTML>
图片 59<HEAD>
图片 60<TITLE>VBS学习02_交付前非空相关验证</TITLE>
图片 61图片 62<SCRIPT LANGUAGE=”VBScript”>图片 63
图片 64<!–
图片 65Sub btn_Submit_OnClick    
图片 66  Dim blnOK
图片 67  ‘Call Validate(blnOK)
图片 68  Validate blnOK
图片 69  If blnOK Then
图片 70     MsgBox “OK”
图片 71  Else
图片 72     MsgBox “Sorry”
图片 73  End If
图片 74End Sub
图片 75
图片 76Function Validate(blnOK)
图片 77  Dim TheForm
图片 78  Set TheForm = Document.forms(“Form1”)
图片 79
图片 80  If TheForm.txt_Name.Value = “” Then
图片 81    MsgBox “姓名 不能够为空!”
图片 82    TheForm.txt_Name.Focus
图片 83    blnOK = CBool(0)
图片 84    Exit Function 
图片 85  End If
图片 86  
图片 87  If TheForm.txt_Sex.Value = “” Then
图片 88    MsgBox “性别 不可能为空!”
图片 89    TheForm.txt_Sex.Focus
图片 90    blnOK = CBool(0)
图片 91    Exit Function 
图片 92  Else 
图片 93    If (TheForm.txt_Sex.Value <>”男”) And (TheForm.txt_Sex.Value <>”女”) Then
图片 94       Msg博克斯 “性别 输入有误”
图片 95       TheForm.txt_Sex.Select
图片 96       blnOK = CBool(0)
图片 97       Exit Function 
图片 98    End If
图片 99  End If
图片 100  
图片 101  If TheForm.txt_Address.Value = “” Then
图片 102       MsgBox “住址 不能为空!”
图片 103       TheForm.txt_Address.Focus
图片 104       blnOK = CBool(0)
图片 105       Exit Function 
图片 106  End If
图片 107
图片 108  blnOK = CBool(-1State of Qatar ‘验证通过
图片 109End Function
图片 110–>
图片 111</SCRIPT>
图片 112</HEAD>
图片 113<BODY>
图片 114<FORM NAME=”Form1″>
图片 115 <TABLE>
图片 116   <TR>
图片 117     <TD>姓名</TD>
图片 118     <TD><INPUT NAME=”txt_Name” TYPE=”TEXT” ></TD>
图片 119   </TR>
图片 120   <TR>
图片 121     <TD>性别</TD>
图片 122     <TD><INPUT NAME=”txt_Sex” TYPE=”TEXT” ></TD>
图片 123   </TR>
图片 124   <TR>
图片 125     <TD>住址</TD>
图片 126     <TD><INPUT NAME=”txt_Address” TYPE=”TEXT” ></TD>
图片 127   </TR>
图片 128   <TR>
图片 129     <TD COLSPAN=”2″ ALIGN=”CENTER”>
图片 130        <INPUT TYPE=”Button” NAME=”btn_Submit” VALUE=”提交前非空及表明” >
图片 131     </TD>
图片 132   </TR>
图片 133 </TABLE>
图片 134</FORM>
图片 135</BODY>
图片 136</HTML>

Dim Cd_Info 

3.VBS学习03_vbs与js交互

Set Cd_Info= Server.CreateObject(“CD.CD_Handle”) 

图片 137图片 138Code
图片 139<HTML>
图片 140<HEAD>
图片 141<TITLE>VBS学习03_vbs与js交互</TITLE>
图片 142
图片 143图片 144<script language=”javascript”>图片 145
图片 146<!–//
图片 147function btn2()
图片 148图片 149图片 150{
图片 151    
图片 152    var numA,numB,sumValue;
图片 153    numA = parseInt(document.Form1.txt_A.value);
图片 154    numB = parseInt(document.Form1.txt_B.value);
图片 155    sumValue = vbsSum(numA,numB);
图片 156    alert(“和”+sumValue);
图片 157    document.Form1.txt_C.value = sumValue;
图片 158}
图片 159
图片 160function jsSum(numA,numB)
图片 161图片 162图片 163{
图片 164   var sumVaule;
图片 165   sumVaule = numA + numB;
图片 166   return sumVaule;
图片 167}
图片 168//–>
图片 169</script>
图片 170
图片 171图片 172<SCRIPT LANGUAGE=”VBScript”>图片 173
图片 174<!–
图片 175Sub btn1()
图片 176    Dim numA,numB,sumValue
图片 177    numA = CInt(Document.Form1.txt_A.Value)
图片 178    numB = CInt(Document.Form1.txt_B.Value)
图片 179    sumValue = jsSum(numA,numB)
图片 180    MsgBox “和” & sumValue 
图片 181    Document.Form1.txt_C.Value = sumValue
图片 182End Sub
图片 183
图片 184Function vbsSum(numA,numB)
图片 185   Dim A,B
图片 186   A = CInt(numA)
图片 187   B = CInt(numB)
图片 188   vbsSum = CStr(A+B)
图片 189End Function
图片 190–>
图片 191</SCRIPT>
图片 192
图片 193</HEAD>
图片 194<BODY>
图片 195<FORM NAME=”Form1″>
图片 196 <TABLE>
图片 197   <TR>
图片 198     <TD>加数A</TD>
图片 199     <TD><INPUT NAME=”txt_A” TYPE=”TEXT” VALUE=”1″ ></TD>
图片 200   </TR>
图片 201   <TR>
图片 202     <TD>加数B</TD>
图片 203     <TD><INPUT NAME=”txt_B” TYPE=”TEXT” VALUE=”2″ ></TD>
图片 204   </TR>
图片 205   <TR>
图片 206     <TD>和值</TD>
图片 207     <TD><INPUT NAME=”txt_C” TYPE=”TEXT” ></TD>
图片 208   </TR>
图片 209   <TR>
图片 210     <TD COLSPAN=”2″ ALIGN=”CENTER”>
图片 211        <INPUT NAME=”Button1″ TYPE=”BUTTON” VALUE=”vbs调用js”  OnClick=”btn1()”  >
图片 212        <INPUT NAME=”Button2″ TYPE=”BUTTON” VALUE=”js调用vbs” onclick=”btn2();” >
图片 213     </TD>
图片 214   </TR>
图片 215 </TABLE>
图片 216</FORM>
图片 217</BODY>
图片 218</HTML>

%> 

4.VBS学习04_拾贰分管理

<HTML> 

图片 219图片 220Code
图片 221<HTML>
图片 222<HEAD>
图片 223<TITLE>VBS学习04_丰富管理</TITLE>
图片 224图片 225<SCRIPT LANGUAGE=”VBScript”>图片 226
图片 227<!–
图片 228Sub btn_Submit_OnClick
图片 229
图片 230  Dim numA,numB,numC
图片 231
图片 232  If Document.Form1.txt_A.Value = “” Then
图片 233    MsgBox “被除数A 不能够为空!”
图片 234    Exit Sub
图片 235  Else 
图片 236    On Error Resume Next
图片 237    numA = CInt(Document.Form1.txt_A.Value)
图片 238    If Err.Number<>0 Then
图片 239       MsgBox (“Error # ” & CStr(Err.Number) & ” ” & Err.Description)
图片 240       Msg博克斯 “被除数A 请输入有效整数数字”
图片 241       Err.Clear    ‘排除错误
图片 242       On error goto 0
图片 243       Exit Sub
图片 244    End If    
图片 245  End If
图片 246
图片 247  On Error Resume Next
图片 248
图片 249  If Document.Form1.txt_B.Value <>”” Then
图片 250     On Error Resume Next
图片 251     numB = CInt(Document.Form1.txt_B.Value)
图片 252     If Err.Number<>0 Then
图片 253        Err.Raise Err.Number
图片 254        MsgBox (“Error # ” & CStr(Err.Number) & ” ” & Err.Description)
图片 255        MsgBox “除数B 请输入有效整数数字”
图片 256        On error goto 0
图片 257     End If     
图片 258  End If
图片 259
图片 260  numC = numA/numB
图片 261  If Err.Number<>0 Then
图片 262     Err.Raise Err.Number
图片 263     MsgBox (“Error # ” & CStr(Err.Number) & ” ” & Err.Description)
图片 264     Document.Form1.txt_C.Value = “”
图片 265  Else
图片 266     Document.Form1.txt_C.Value = numC
图片 267  End If  
图片 268  
图片 269  ‘Err.Clear
图片 270  ‘MsgBox Err.Number   
图片 271
图片 272  On error goto 0
图片 273
图片 274  ‘MsgBox Err.Number
图片 275End Sub
图片 276–>
图片 277</SCRIPT>
图片 278</HEAD>
图片 279<BODY>
图片 280<FORM NAME=”Form1″>
图片 281 <TABLE>
图片 282   <TR>
图片 283     <TD>被除数A</TD>
图片 284     <TD><INPUT NAME=”txt_A” TYPE=”TEXT” ></TD>
图片 285   </TR>
图片 286   <TR>
图片 287     <TD>除数B</TD>
图片 288     <TD><INPUT NAME=”txt_B” TYPE=”TEXT” ></TD>
图片 289   </TR>
图片 290   <TR>
图片 291     <TD>商C</TD>
图片 292     <TD><INPUT NAME=”txt_C” TYPE=”TEXT” ></TD>
图片 293   </TR>
图片 294   <TR>
图片 295     <TD COLSPAN=”2″ ALIGN=”CENTER”>
图片 296        <INPUT TYPE=”Button” NAME=”btn_Submit” VALUE=”确定” >
图片 297     </TD>
图片 298   </TR>
图片 299 </TABLE>
图片 300</FORM>
图片 301</BODY>
图片 302</HTML>

<HEAD> 

5.VBS学习05_数组

<META http-equiv=”Content-Type” content=”text/html; charset=gb2312″> 

图片 303图片 304Code
图片 305<HTML>
图片 306<HEAD>
图片 307<TITLE>VBS学习05_数组</TITLE>
图片 308图片 309<SCRIPT LANGUAGE=”VBScript”>图片 310
图片 311<!–
图片 312Sub btn_TeacherArray_OnClick
图片 313
图片 314  Dim A
图片 315  A = Array(10,20,30)
图片 316  MsgBox “豆蔻梢头维数组” & A(2卡塔尔国
图片 317
图片 318  Dim B(1,1)
图片 319  B(0,0) = “1”
图片 320  B(0,1) = “10”
图片 321  B(1,0) = “2”
图片 322  B(1,1) = “20”
图片 323  MsgBox “二维数组” & B(1,0卡塔尔(قطر‎
图片 324
图片 325  Dim C
图片 326  C = Array(Array(1,10),Array(2,20))
图片 327  MsgBox “二维数组” & C(1卡塔尔(0卡塔尔
图片 328
图片 329  Dim D()
图片 330  ReDim D(1)
图片 331  D(0) = “0”
图片 332  D(1) = “1”
图片 333  MsgBox “ReDim1 ” & D(1)
图片 334  ReDim D(2)
图片 335  D(0) = “0”
图片 336  D(1) = “10”
图片 337  D(2) = “20”
图片 338  MsgBox “ReDim2 ” &  D(1)
图片 339  ReDim Preserve D(3)
图片 340  D(3) = “30”
图片 341  MsgBox “ReDim3 ” & D(1)
图片 342  ReDim D(1,1)
图片 343  D(0,0) = “00”
图片 344  D(0,1) = “01”
图片 345  D(1,0) = “10”
图片 346  D(1,1) = “11”
图片 347  MsgBox “ReDim4 ” & D(1,1)
图片 348
图片 349  ‘五个学校 
图片 350  ‘    每校多少个年级
图片 351  ‘        每年一次级三个班级
图片 352  ‘            每班五名教授
图片 353  ‘ 2 * 3 * 4 * 5 = 120
图片 354
图片 355  ‘八个学校 
图片 356  ‘    每校八个年级
图片 357  ‘        每年一次级三个班级
图片 358  ‘            每班两名老师
图片 359  ‘ 2 * 2 * 2 * 2 = 16
图片 360
图片 361  Dim Teacher(1,1,1,1)
图片 362
图片 363  ‘A校一年级朝气蓬勃班老师
图片 364  Teacher(0,0,0,0) = “0000_A校一年级大器晚成班老师A111”
图片 365  Teacher(0,0,0,1) = “0001_A校一年级豆蔻年华班老师A112”
图片 366  ‘A校一年级二班教师
图片 367  Teacher(0,0,1,0) = “0010_A校一年级二班教师A121”
图片 368  Teacher(0,0,1,1) = “0011_A校一年级二班教师A122”
图片 369  ‘A校二年级风姿浪漫班老师
图片 370  Teacher(0,1,0,0) = “0100_A校二年级一班教师A211”
图片 371  Teacher(0,1,0,1) = “0101_A校二年级后生可畏班助教A212”
图片 372  ‘A校二年级二班教师
图片 373  Teacher(0,1,1,0) = “0110_A校二年级二班教师A221”
图片 374  Teacher(0,1,1,1) = “0111_A校二年级二班教授A222”
图片 375
图片 376  ‘B校一年级风度翩翩班老师
图片 377  Teacher(1,0,0,0) = “1000_B校一年级风流浪漫班老师B111”
图片 378  Teacher(1,0,0,1) = “1001_B校一年级意气风发班老师B112”
图片 379  ‘B校一年级二班教师
图片 380  Teacher(1,0,1,0) = “1010_B校一年级二班教师B121”
图片 381  Teacher(1,0,1,1) = “1011_B校一年级二班助教B122”
图片 382  ‘B校二年级意气风发班老师
图片 383  Teacher(1,1,0,0) = “1100_B校二年级风度翩翩班老师B211”
图片 384  Teacher(1,1,0,1) = “1101_B校二年级意气风发班老师B212”
图片 385  ‘B校二年级二班教师
图片 386  Teacher(1,1,1,0) = “1110_B校二年级二班教师B221”
图片 387  Teacher(1,1,1,1) = “1111_B校二年级二班助教B222”
图片 388
图片 389  ‘A校一年级二级教授意气风发
图片 390  Dim t
图片 391  t = Teacher(0,0,1,0)  
图片 392  MsgBox t
图片 393
图片 394  ‘遍历数组内容
图片 395  Dim teachers
图片 396  For Each teacher in Teacher
图片 397     teachers = teachers & teacher
图片 398     teachers = teachers & “<BR>”
图片 399  Next  
图片 400  MsgBox teachers
图片 401
图片 402  ‘Dictionary 对象
图片 403  Dim dic                   ‘创造三个变量。
图片 404  Set dic = CreateObject(“Scripting.Dictionary”)
图片 405  dic.Add “a”, “A”     ‘增添键和种类。
图片 406  dic.Add “b”, “B”
图片 407  dic.Add “c”, “C”
图片 408  MsgBox “dic.Count ” & dic.Count
图片 409  Dim dicArray ,i ,s
图片 410  dicKeysArray = dic.Keys
图片 411  dicItemsArray = dic.Items
图片 412  For i=0 To dic.Count -1
图片 413    s = s & dicKeysArray(i) & dicItemsArray(i)  & “<BR>”
图片 414  Next
图片 415  MsgBox s
图片 416  MsgBox dic.Item(“a”)
图片 417
图片 418End Sub
图片 419–>
图片 420</SCRIPT>
图片 421</HEAD>
图片 422<BODY>
图片 423<FORM NAME=”Form1″>
图片 424    <INPUT TYPE=”Button” NAME=”btn_TeacherArray” VALUE=”教授数组” >
图片 425</FORM>
图片 426</BODY>
图片 427</HTML>

<TITLE>CD消息列表</TITLE> 

</HEAD> 

<BODY> 

<B><P ALIGN=”center”>CD音讯列表</P></B> 

<TABLE BORDER=”2″ CELLSPACING=”1″> 

<TR> 

<TD><P ALIGN=”center”>CD编号</TD> 

<TD><P ALIGN=”center”>CD名</TD> 

<TD><P ALIGN=”center”>作者</TD> 

<TD><P ALIGN=”center”>价格</TD> 

<TD><P ALIGN=”center”>CD简介</TD> 

</TR> 

<TR></TR> 

<%DIM ID 

Dim Name 

Dim Author 

Dim Price 

网站地图xml地图