tomorrow morning give you source

Thanks very much

為了使這一貼子變得更精華，特將vernon寫的程序貼出來供大伙學習。有什麼不明白的快向VERNON請教。
testing.asp
<% @ LANGUAGE=VBScript CODEPAGE=936 %>

















<%
session("chk")="pass"
Set cnnDB = Server.CreateObject("ADODB.Connection")
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
         Server.MapPath("gbbook.mdb")
cnnDB.Open strCon
Set rstObj = Server.CreateObject ("ADODB.Recordset")
rstObj.Open "book", cnnDB
%>


<%
Do While Not rstObj.EOF
response.write ""
rstObj.MoveNext
Loop

rstObj.Close
Set rstObj = Nothing
cnnDB.Close
Set cnnDB = Nothing
%>

" response.write rstObj("id") response.write "

" response.write rstObj("book") response.write "

" response.write rstObj("issue") response.write "

" response.write "assid(" & rstObj("id") &");return true>" response.write "

" response.write "assid('" & rstObj("book") &"');return true>" response.write "

" response.write "assid('" & rstObj("issue") &"');return true>" response.write "

" response.write "assall(" & rstObj("id") & ",'" & rstObj("book") & "','" & rstObj("issue") & "');return true>" response.write "

show.asp
<%
chk=session("chk")
chkbtn=request("smit")
if ((chk<>"pass")or(chkbtn="")) then
response.redirect "testing.asp"
end if
%>

<% id=request("bookid") bn=request("bookname") iss=request("issue") if (chkbtn="ALL") then %> ID	Book Name	ISSUE
<% response.write id response.write "	" response.write bn response.write "	" response.write iss else response.write chkbtn response.write "	" response.write id end if %>