asp源碼模板
Ⅰ 幫忙x寫一個簡單的asp網頁源代碼
如果user表存在並且設計好。
假設欄位分別為id,name,classname
那麼如下代碼即可。
name=request("name")
classname=request("classname")
set rs=server.createobject("adodb.recordset")
rs.open "select * from user",conn,1,3
rs.addnew
rs("name")=name
rs("classname")=classname
rs.update
rs.close
html的表單部分,用你的那2個文本框來輸入就可以了。name和classname可以根據你自己的需要來改名。
多動手,祝你成功。
Ⅱ 誰能提供一個最簡單易懂的ASP上傳圖的代碼
以下是一個無組建上傳,代碼沒有測試,調試一下就應該可以使用。
uploadfile.asp的內容
=====================================================
<!-- #include file="upload.inc" -->
<%
dim strFormName, strInputName
dim intFileID
strFormName = request.querystring("formname")
strInputName = request.querystring("inputname")
intFileID = ls.cdata(request.querystring("fileid"), 3)
if request.querystring("up") = "ok" then
if request.querystring("uploadcode") = Session("UploadCode") then
Session("UploadCode") = ""
Server.ScriptTimeOut = 999999
Dim Upload
Dim FileToBinary
Dim strMsg, strImageTypes
strMsg = "上傳成功!"
strImageTypes = "jpg,gif,bmp,jpeg,png,tif,iff"
Set Upload = New UpFile_Class
Upload.InceptFileType = ""
Upload.MaxSize = 1024*1024
Upload.GetDate() '取得上傳數據
FileToBinary = Null
If Upload.Err > 0 then
Select Case Upload.Err
Case 1 : strMsg = "請先選擇你要上傳的文件!"
Case 2 : strMsg = "文件大小超過了限制 1024KB!"
Case 3 : strMsg = "文件類型不正確!"
End Select
ls.Redirect strMsg, "close"
Else
Dim FormName, File, FileExt, FileName, FileType
FormName = "up_file"
Set File = Upload.File(FormName)
FileExt = FixName(File.FileExt)
FileName = FormatName(FileExt)
FileType = CheckFiletype(FileExt)
If File.FileSize > 0 and Instr("," & strImageTypes & ",", "," & FileExt & ",") > 0 Then
File.SaveToFile Server.Mappath(BasePath & UploadFileFolder & FileName)
Else
response.write "沒有文件上傳,或圖片不是以下「jpg,gif,bmp,jpeg,png,tif,iff」類型的一種。" End If
End If
Set Upload = Nothing
else
response.write "請不要重復提交!", "close"
end if
else
Dim PostRanNum
Randomize
PostRanNum = Int(900*rnd)+1000
Session("UploadCode") = Cstr(PostRanNum)
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>上傳圖片</title>
<link href="../style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
#up_body {
height: 92px;
width: 402px;
border: #6595D6 1px solid;
}
#up_img {
height: 90px;
width: 120px;
float: left;
text-align:center;
}
#up_upload {
float: left;
height: 90px;
width: 280px;
}
#up_message {
float: left;
height: 90px;
width: 260px;
padding-top:30px;
text-align:center;
}
#up_form {
margin: 0px;
padding: 0px;
border: 0px;
}
#up_label {
background-color: #E4EDF9;
height: 30px;
width: 280px;
font-size-adjust: 14px;
font-weight: bold;
}
#up_label {
font-size: 14px;
font-weight: bold;
background-color: #E4EDF9;
width: 280px;
text-align:center;
line-height:180%;
}
#up_input {
height: 30px;
width: 280px;
}
#up_file {
margin-top:4px;
width: 280px;
}
#up_button {
width: 280px;
text-align:center;
}
-->
</style>
<script type="text/javascript">
<!--
function change()
{
up_upload.style.display="none";
up_message.style.display="";
}
-->
</script>
</head>
<body>
<div id="up_body">
<div id="up_upload">
<form action="uploadfile.asp?up=ok" method="post" enctype="multipart/form-data" name="up_form" id="up_form">
<div id="up_label">上 傳 圖 片</div>
<div id="up_input">
<input type="file" name="up_file" id="up_file" />
</div>
<div id="up_button">
<input type="submit" name="Submit" value="提交" onclick="change()" />
<input type="button" name="Submit2" value="關閉" onclick="window.close()" />
</div>
</form>
</div>
<div id="up_message" style="display:none;">
請稍後,文件上傳中....
</div>
</div>
</body>
</html>
upload.inc的內容
====================================================
<%
'----------------------------------------------------------------------
'轉發時請保留此聲明信息,這段聲明不並會影響你的速度!
'******************* 無懼上傳類 V1.0 *********************************
'作者:梁無懼
'網站:http://www.25cn.com
'電子郵件:[email protected]
'版權聲明:版權所有,源代碼公開,各種用途均可免費使用,但是修改後必須把修改後的文件
'發送一份給作者.
'***********************************************************************
'***********************************************************************
'上傳類強化記錄
'修改者:Fssunwin
'----------------------------------------------------------------------
'添加以下屬性:
'InceptFileType 允許上傳的文件類型,以英文逗號「,」分隔。
'添加以下方法:
'FileWidth 圖片寬度
'FileHeight 圖片高度
'----------------------------------------------------------------------
'***********************************************************************
Dim oUpFileStream
Class UpFile_Class
Public Form,File,Version,Err
Private CHK_FileType,CHK_MaxSize
Private Sub Class_Initialize
Version = "無懼上傳類 Version V1.0"
Err = -1
CHK_FileType = ""
CHK_MaxSize = -1
Set Form = Server.CreateObject ("Scripting.Dictionary")
Set File = Server.CreateObject ("Scripting.Dictionary")
Set oUpFileStream = Server.CreateObject ("Adodb.Stream")
Form.CompareMode = 1
File.CompareMode = 1
oUpFileStream.Type = 1
oUpFileStream.Mode = 3
oUpFileStream.Open
End Sub
Private Sub Class_Terminate
'清除變數及對像
Form.RemoveAll
Set Form = Nothing
File.RemoveAll
Set File = Nothing
oUpFileStream.Close
Set oUpFileStream = Nothing
End Sub
Public Property Get InceptFileType
InceptFileType = CHK_FileType
End Property
Public Property Let InceptFileType(Byval vType)
CHK_FileType = vType
End Property
Public Property Get MaxSize
MaxSize = CHK_MaxSize
End Property
Public Property Let MaxSize(vSize)
If IsNumeric(vSize) Then CHK_MaxSize = Int(vSize)
End Property
Public Sub GetDate()
'定義變數
Dim RequestBinDate,sSpace,bCrLf,sInfo,iInfoEnd,tStream,iStart,oFileInfo
Dim sFormValue,sFileName,sFormName,RequestSize
Dim iFindStart,iFindEnd,iFormStart,iFormEnd,FileBlag
'代碼開始
RequestSize = Int(Request.TotalBytes)
If RequestSize < 1 Then
Err = 1
Exit Sub
End If
Set tStream = Server.CreateObject ("Adodb.Stream")
oUpFileStream.Write Request.BinaryRead (RequestSize)
oUpFileStream.Position = 0
RequestBinDate = oUpFileStream.Read
iFormEnd = oUpFileStream.Size
bCrLf = ChrB (13) & ChrB (10)
'取得每個項目之間的分隔符
sSpace = MidB (RequestBinDate,1, InStrB (1,RequestBinDate,bCrLf)-1)
iStart = LenB (sSpace)
iFormStart = iStart+2
'分解項目
Do
iInfoEnd = InStrB (iFormStart,RequestBinDate,bCrLf & bCrLf)+3
tStream.Type = 1
tStream.Mode = 3
tStream.Open
oUpFileStream.Position = iFormStart
oUpFileStream.CopyTo tStream,iInfoEnd-iFormStart
tStream.Position = 0
tStream.Type = 2
tStream.CharSet = "gb2312"
sInfo = tStream.ReadText
'取得表單項目名稱
iFormStart = InStrB (iInfoEnd,RequestBinDate,sSpace)-1
iFindStart = InStr(22,sInfo,"name=""",1)+6
iFindEnd = InStr(iFindStart,sInfo,"""",1)
sFormName = Mid(sinfo,iFindStart,iFindEnd-iFindStart)
'如果是文件
If InStr(45,sInfo,"filename=""",1) > 0 Then
Set oFileInfo = new FileInfo_Class
'取得文件屬性
iFindStart = InStr(iFindEnd,sInfo,"filename=""",1)+10
iFindEnd = InStr(iFindStart,sInfo,"""",1)
sFileName = Mid(sinfo,iFindStart,iFindEnd-iFindStart)
oFileInfo.FileName = Mid(sFileName,InStrRev(sFileName, "\")+1)
oFileInfo.FilePath = Left(sFileName,InStrRev(sFileName, "\"))
oFileInfo.FileExt = Lcase(Mid(sFileName,InStrRev(sFileName, ".")+1))
iFindStart = InStr (iFindEnd,sInfo,"Content-Type: ",1)+14
iFindEnd = InStr (iFindStart,sInfo,vbCr)
oFileInfo.FileType = Ucase(Mid(sinfo,iFindStart,iFindEnd-iFindStart))
oFileInfo.FileStart = iInfoEnd
oFileInfo.FileSize = iFormStart -iInfoEnd -2
oFileInfo.FormName = sFormName
If Instr(oFileInfo.FileType,"IMAGE/") Or Instr(oFileInfo.FileType,"FLASH") Then
FileBlag = GetImageSize
oFileInfo.FileExt = FileBlag(0)
oFileInfo.FileWidth = FileBlag(1)
oFileInfo.FileHeight = FileBlag(2)
FileBlag = Empty
End If
If CHK_MaxSize > 0 Then
If oFileInfo.FileSize > CHK_MaxSize Then
Err = 2
Exit Sub
End If
End If
If CheckErr(oFileInfo.FileExt) = False Then
Exit Sub
End If
File.Add sFormName,oFileInfo
Else
'如果是表單項目
tStream.Close
tStream.Type = 1
tStream.Mode = 3
tStream.Open
oUpFileStream.Position = iInfoEnd
oUpFileStream.CopyTo tStream,iFormStart-iInfoEnd-2
tStream.Position = 0
tStream.Type = 2
tStream.CharSet = "gb2312"
sFormValue = tStream.ReadText
If Form.Exists (sFormName) Then _
Form (sFormName) = Form (sFormName) & ", " & sFormValue _
Else _
Form.Add sFormName,sFormValue
End If
tStream.Close
iFormStart = iFormStart+iStart+2
'如果到文件尾了就退出
Loop Until (iFormStart+2) = iFormEnd
RequestBinDate = ""
Set tStream = Nothing
End Sub
'====================================================================
'驗證上傳類型
'====================================================================
Private Function CheckErr(Byval ChkExt)
CheckErr=False
If CHK_FileType > "" Then
If InStr("," & Lcase(CHK_FileType) & ",", "," & ChkExt & ",")>0 Then
CheckErr = True
Else
Err = 3
End If
Else
CheckErr = True
End If
End Function
'====================================================================
'圖像寬高類型讀取
'====================================================================
Private Function Bin2Str(Byval Bin)
Dim i, Str, Sclow
For i = 1 To LenB(Bin)
Sclow = MidB(Bin,i,1)
If ASCB(Sclow)<128 Then
Str = Str & Chr(ASCB(Sclow))
Else
i = i+1
If i <= LenB(Bin) Then Str = Str & Chr(ASCW(MidB(Bin,i,1)&Sclow))
End If
Next
Bin2Str = Str
End Function
Private Function Num2Str(Byval num,Byval Base,Byval Lens)
Dim ImageSize
ImageSize = ""
While(num>=Base)
ImageSize = (num mod Base) & ImageSize
num = (num - num mod Base)/Base
Wend
Num2Str = Right(String(Lens,"0") & num & ImageSize,Lens)
End Function
Private Function Str2Num(Byval str,Byval Base)
Dim ImageSize,i
ImageSize = 0
For i=1 To Len(str)
ImageSize = ImageSize *Base + Cint(Mid(str,i,1))
Next
Str2Num = ImageSize
End Function
Private Function BinVal(Byval bin)
Dim ImageSize,i
ImageSize = 0
For i = lenb(bin) To 1 Step -1
ImageSize = ImageSize *256 + ASCB(Midb(bin,i,1))
Next
BinVal = ImageSize
End Function
Private Function BinVal2(Byval bin)
Dim ImageSize,i
ImageSize = 0
For i = 1 To Lenb(bin)
ImageSize = ImageSize *256 + ASCB(Midb(bin,i,1))
Next
BinVal2 = ImageSize
End Function
Private Function GetImageSize()
Dim ImageSize(2),bFlag
bFlag = oUpFileStream.Read(3)
Select Case Hex(BinVal(bFlag))
Case "4E5089":
oUpFileStream.Read(15)
ImageSize(0) = "png"
ImageSize(1) = BinVal2(oUpFileStream.Read(2))
oUpFileStream.Read(2)
ImageSize(2) = BinVal2(oUpFileStream.Read(2))
Case "464947":
oUpFileStream.Read(3)
ImageSize(0) = "gif"
ImageSize(1) = BinVal(oUpFileStream.Read(2))
ImageSize(2) = BinVal(oUpFileStream.Read(2))
Case "535746":
Dim BinData,sConv,nBits
oUpFileStream.Read(5)
BinData = oUpFileStream.Read(1)
sConv = Num2Str(ASCB(BinData),2 ,8)
nBits = Str2Num(Left(sConv,5),2)
sConv = Mid(sConv,6)
While(Len(sConv)<nBits*4)
BinData = oUpFileStream.Read(1)
sConv = sConv&Num2Str(ASCB(BinData),2 ,8)
Wend
ImageSize(0) = "swf"
ImageSize(1) = Int(ABS(Str2Num(Mid(sConv,1*nBits+1,nBits),2)-Str2Num(Mid(sConv,0*nBits+1,nBits),2))/20)
ImageSize(2) = Int(ABS(Str2Num(Mid(sConv,3*nBits+1,nBits),2)-Str2Num(Mid(sConv,2*nBits+1,nBits),2))/20)
Case "535743":'flashmx
ImageSize(0) = "swf"
ImageSize(1) = 0
ImageSize(2) = 0
Case "FFD8FF":
Dim p1
Do
Do: p1 = BinVal(oUpFileStream.Read(1)): Loop While p1 = 255 And Not oUpFileStream.EOS
If p1>191 and p1<196 Then Exit Do Else oUpFileStream.Read(BinVal2(oUpFileStream.Read(2))-2)
Do:p1 = BinVal(oUpFileStream.Read(1)):Loop While p1<255 And Not oUpFileStream.EOS
Loop While True
oUpFileStream.Read(3)
ImageSize(0) = "jpg"
ImageSize(2) = BinVal2(oUpFileStream.Read(2))
ImageSize(1) = BinVal2(oUpFileStream.Read(2))
Case Else:
If Left(Bin2Str(bFlag),2) = "BM" Then
oUpFileStream.Read(15)
ImageSize(0) = "bmp"
ImageSize(1) = BinVal(oUpFileStream.Read(4))
ImageSize(2) = BinVal(oUpFileStream.Read(4))
Else
ImageSize(0) = "(UNKNOWN)"
End If
End Select
GetImagesize = ImageSize
End Function
End Class
'文件屬性類
Class FileInfo_Class
Public FormName,FileName,FilePath,FileSize,FileType,FileStart,FileExt,FileWidth,FileHeight
Private Sub Class_Initialize
FileWidth=0
FileHeight=0
End Sub
'保存文件方法
Public Sub SaveToFile (Byval Path)
Dim Ext,oFileStream
Ext = LCase(Mid(Path, InStrRev(Path, ".") + 1))
If Ext <> FileExt Then Exit Sub
If Trim(Path)="" or FileStart=0 or FileName="" or Right(Path,1)="/" Then Exit Sub
'On Error Resume Next
Set oFileStream = CreateObject ("Adodb.Stream")
oFileStream.Type = 1
oFileStream.Mode = 3
oFileStream.Open
oUpFileStream.Position = FileStart
oUpFileStream.CopyTo oFileStream,FileSize
oFileStream.SaveToFile Path,2
oFileStream.Close
Set oFileStream = Nothing
End Sub
'取得文件數據
Public Function FileData
oUpFileStream.Position = FileStart
FileData = oUpFileStream.Read (FileSize)
End Function
End Class
%>
Ⅲ 請問哈,那能找到個簡單的整站ASP源代碼,有基本的功能就可以,後台好操作,完整
第一個:
<tr>
<td colspan="2" align="left" valign="top" class="c">留言內容:<p><%=rs("connet")%></td>
</tr>
<tr>
<td colspan="2" align="left" valign="top" class="c" height="16">
..............<a href="del.asp?id=<%=rs("id")%>" style="text-decoration: none"><font color="#333333">刪除</font></a>.................<a href="reg.asp" style="text-decoration: none"><font color="#333333">我要留言</font></a>.........</td>
</tr>
把上面的改成
<tr>
<td colspan="3" align="left" valign="top" class="c">留言內容:<p><%=rs("connet")%></td>
</tr>
<tr>
<td colspan="3" align="left" valign="top" class="c" height="16">
..............<a href="del.asp?id=<%=rs("id")%>" style="text-decoration: none"><font color="#333333">刪除</font></a>.................<a href="reg.asp" style="text-decoration: none"><font color="#333333">我要留言</font></a>.........</td>
</tr>
第二個:
<!--header begin-->
<%
response.write "<div id=mainbox>"&_
"<table border=0 width=100% cellpadding=4 style=border-collapse: collapse class='top_table'>"&_
"<form name=form11 action=Proct_ListSearch.asp method=get>"&_
" <tr><td colspan=2 height=5></td></tr>"&_
" <tr>"&_
" <td><a href=index.asp title=返回首頁><img src=uploadpic/></a></td>"&_
" <td align=right>"&_
" <table><tr><td class=cartimg></td><td><a href=Cart_List.asp>查看我的購物車</a>(<font color=#FF0000>"
if session("y")="" then response.write "0" else response.write session("y")
===================================
response.write "<td><a href=index.asp title=返回首頁><object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0' width='365' height='53'>"&_
"<param name='movie' value='logo.swf'>"&_
"<param name='quality' value='high'>"&_
"<embed src='logo.swf' width='365' height='53' quality='high' type='application/x-shockwave-flash' width='365' height='53'></embed></object></a></td>"
%>
希望我的回答對你有所幫助。
Ⅳ 下載的asp源碼模板怎麼使用
怎麼使用?這個問題問得有點奇怪
ASP運行,需要服務端,首先確保你電腦有運行ASP的服務端,或者IIS,或者上傳至ASP服務空間(最簡單的就是有個小ASP服務小軟體,你將其放至ASP源碼目錄下,運行,然後在IE中輸入127.0.0.1,既可訪問)。
至於使用嘛,不修改,通過你上傳的服務IP則可直接使用。
如果要修改,增加改變你自己的東西,則你需要對其進行編輯,編輯方式可以通過網頁編輯工具或者記事本(記事本編輯,需要對裡面比較熟悉)。
Ⅳ 用ASP寫的連接ACCESS資料庫網站的源代碼
給你提供一個我自己寫的吧,三行,從做ASP那天起我就用這三行打遍天下了。希望對你有所參考,網上那些編的連接都是由網路公司出的,有他們的優點,但不夠簡潔,以下是代碼和注釋。
<%
Set conn=Server.CreateObject("ADODB.Connection") //創建資料庫連接對象 conn
conn.provider="Microsoft.Jet.OLEDB.4.0" //指定資料庫驅動類型
conn.Open Server.MapPath("cooshlion.mdb") //打開資料庫,請注意與你的資料庫位置對應,如果不在當前目錄下,請用../相對路徑方式
%>
試試吧,將這行代碼保存成一個ASP文件,然後建立一個空資料庫cooshlion.mdb,再執行一下這個文件,不報錯,那就可以了,成功連上,至於關不關閉對象,說老實話,VBScript檢測不是那麼嚴格的。
Ⅵ 求asp無限級樹型菜單源代碼,最好是帶資料庫的!
關於SELECT的無限聯動菜單
index.asp
程序代碼:
<html>
<head>
<title></title>
<meta content="text/html; charset=gb2312" http-equiv="content-type">
<style type="text/css"><!--
FONT{font-size:12px}
TD{font-size:12px}
A{color:#333399}
A:hover{color:#FF6600}
--></style>
<script language="Javascript" type="text/Javascript"><!--
function funOnload(){
document.all.list_file.src="jscript_city.asp?base=0&sele=0-&elem=Select01";
}
//pBase級數,以0基,
//pSele是<option 的value值
//pEle是下一級的表單名字
function chgSelect(pBase,pSele,pElem){
//當改變了一個列表之後。清除以後的列表的值。
for(i=parseInt(pElem.replace("Select",""));i<=5;i++){
var tmp="000"+i;
var pElem1=eval("document.Form1.Select"+tmp.substr(tmp.length-2));
pElem1.length=1;
pElem1.selectedIndex=0;
}
//JS用ASP得到資料庫的數據來更新下級列表
document.all.list_file.src="jscript_city.asp?base="+pBase+"&sele="+pSele+"&elem="+pElem;
}
//--></script>
<script id="list_file" language="Javascript" type="text/Javascript" src=""></script>
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="2" text="#333333" onload="funOnload();">
<form name="Form1">
<select name="Select01" onchange="chgSelect(1,this.options[this.selectedIndex].value,'Select02')">
<option value="">省...</option>
</select>
<select name="Select02" onchange="chgSelect(2,this.options[this.selectedIndex].value,'Select03')">
<option value="">市...</option>
</select>
<select name="Select03" onchange="chgSelect(3,this.options[this.selectedIndex].value,'Select04')">
<option value="">縣...</option>
</select>
<select name="Select04" onchange="chgSelect(4,this.options[this.selectedIndex].value,'Select05')">
<option value="">鄉...</option>
</select>
<select name="Select05">
<option value="">村...</option>
</select>
</form>
</body></html>
'jscript_city.asp
程序代碼:
<%
' varBase 下拉菜單等級
' varSele 所選擇下拉菜單項的資料庫ID
' varElem 下一級的表單名稱
varBase=Request.QueryString("base")
varSele=Left(Request.QueryString("sele"),InStr(Request.QueryString("sele"),"-")-1)
varElem=Request.QueryString("elem")
varDistName=""
varAutoID=""
Set conDB=Server.CreateObject("ADODB.CONNECTION")
conDB.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("db1.mdb")
sqlCommand="select * from table1 where filed1="&varBase&" and filed2="&varSele
Set rsRecord=conDB.Execute(sqlCommand)
While Not rsRecord.eof
varDistName=varDistName&chr(34)&rsRecord("filed3")&chr(34)
varAutoID=varAutoID&chr(34)&rsRecord("id")&chr(34)
rsRecord.movenext
If Not rsRecord.Eof Then
varDistName=varDistName&","
varAutoID=varAutoID&","
End If
Wend
Response.Write("var varDistName=new Array("&varDistName&")"&vbcrlf)
Response.Write("var varAutoID=new Array("&varAutoID&")"&vbcrlf)
Response.Write("var varElem=eval("&chr(34)&"document.Form1."&varElem&chr(34)&")"&vbcrlf)
Response.Write("varElem.length=varDistName.length+1;"&vbcrlf)
Response.Write("for(var i=0;i<varDistName.length;i++){"&vbcrlf)
Response.Write(" varElem.options[i+1].text=varDistName;"&vbcrlf)
Response.Write(" varElem.options[i+1].value=varAutoID+'-'+varDistName;"&vbcrlf)
Response.Write("}"&vbcrlf)
Response.Write("varElem.selectedIndex=0;"&vbcrlf)
%>
db1.mdb
'-------------------------------------------------
福建 廈門 思明 黃厝 曾厝桉村
福建 泉州 豐澤 西湖 水頭村
如上面的五級轉成資料庫為:
'-------------------------------
id filed1 filed2 filed3
1 0 0 福建
2 1 1 廈門
3 1 1 泉州
4 2 2 思明
5 3 4 黃厝
6 4 5 曾厝桉村
7 2 3 豐澤
8 3 7 西湖
9 4 8 水頭村
'-------------------------------------------------
資料庫說明:
id 自動編號
filed1 下拉菜單列表的等級(看級數。可以設置它的精度。是數字類型)
filed2 上一級的id號(用長整型吧)
filed3 這個就不用說了吧(文件。長度自己看情況)
本程序在IIS4+WIN2000P+ACCESS2000下通過。