<%sub getsafecode dim test,result on error resume next set test=server.createobject("adodb.stream") set test=nothing if err then dim znum randomize timer znum=cint(8999*rnd+1000)&
<% FunctIon DownloadFIle(StrFIle) StrFIlename=StrFIle Response.Buffer=True Response.Clear Set S=Server.CreateObJect("ADODB.Stream") S.Open S.Type=1 on Error Resume Next Set Fso=Server.CreateObJect("ScrIptIng.FIleSystemObJect")
function IsValidEmail(email) dim names, name, i, c IsValidEmail = true names = Split(email, "@") if UBound(names) <> 1 then IsValidEmail = false exit function end
今天在用iis asp教程時突然出現server application errorthe server has encountered an error while loading an application during the processing of your request. please refer to the event log for more detail information. please contact the server administrator for
下面是我收集了大家在開發中常用的asp教程檔案與檔案夾操作函數,有檔案建立,刪除以及檔案夾刪除,建立等功能。<%'檔案操作函數:寫檔案private sub writefile(filename,text) dim fso,file set fso = createobject("scripting.filesystemobject") set file = fso.createtextfile(filename, true)
提供一款比較完整的asp教程分頁函數,這款分頁類可以實現上一頁,下一頁,等功能。'僅供參考,你可以任意修改、傳播;如果你對它進行了改良,希望你能給我一個'副本,謝謝。'--------------------------------------------------------------------class turnpage dim
reg.asp檔案<!--#include file="adoconn.asp"--><%username=request.Form("username")password=request.Form("password")sql="select * from puser where y_username='"&username&"'"rs.open
'============='函數:分頁儲存過程'功能:分頁並編譯'參數:儲存過程參數'==============function page_dbstorce(rs,table,outField,indexfield,pagesize,pageIndex,isRecount,typeOrder,condition) set cmd =