<% str="資料庫文章內容測試內容哈哈" function page(str,fontnum) if len(str)>fontnum then if len(str) mod fontnum>0 then '計算總頁數 pagecontent=len(str)\fontnum+1 else pagecontent=len(str)\fontnum end if Dim arr() ReDim arr(pagecontent) for m = 1 to
錯誤資訊(錯誤資訊我不用翻譯成中文了吧,呵呵,大家諒解) Microsoft OLE DB Provider for ODBC Drivers error '80004005' [Microsoft][ODBC Microsoft Access 97 Driver] The Microsoft Jet database engine cannot open the file
<%Class qswhImg dim asoPrivate Sub Class_Initialize set aso=CreateObject("Adodb.Stream") aso.Mode=3 aso.Type=1 aso.Open End Sub Private Sub Class_Terminate set aso=nothing End Sub Private Function Bin2Str(Bin) Dim I, Str For I=1 to LenB(Bin) clow=
upload.inc <SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT> dim upfile_5xSoft_Stream Class upload_5xSoft dim Form,File,Version Private Sub Class_Initialize dim iStart,iFileNameStart,iFileNameEnd,iEnd,vbEnter,iFormStart,iFormEnd,theFile
<% dim sql_injdata sql_injdata = "'|and|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare|iframe|url=|href|<script>|</script>|<iframe>|</iframe>" sql_inj = split(sql_injdata,"|") if