广西艺术统考:求助一个ASP调查表单代码

<%
Dim act
act=Trim(Request("act"))
Select Case act
Case ""
ShowForm
Case "save"
ShowSave
Case Else
ShowForm
End Select

Dim Conn,ConnStr
Sub ConnectDBAccess
Dim DBName
DBName="/work/database/database.mdb"
On Error Resume Next
Connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &Server.MapPath(DBName)
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.open Connstr
If Err Then
Err.Clear
CloseConn
Response.Write "err"
Response.End
End If
End Sub

Function ShowSave()
Dim CacheArray[]
Dim I
Dim SQL
For I=0 To 3
CacheArray[I]=Request.Form("T"&I)
Next
SQL="Insert Into 表名..."
Conn.Execute(SQL)
End Function

Sub ShowForm
%>
<form name="f1" action="?act=save">
调查项目1：<input type="text" name="t1" size="12" maxlength="20">
调查项目2：<input type="text" name="t2" size="12" maxlength="20">
调查项目3：<input type="text" name="t3" size="12" maxlength="20">
调查项目4：<input type="text" name="t4" size="12" maxlength="20">
</form>
<%
End Sub
%>

大概就是这样了,细节地方你琢磨一下下,哦!加我QQ也行!