1、ASP常用的几个功能模块ASP常用的几个功能模块1,经常写些系统,那么一般都是从登录程序开始,每接一个系统就写一次登录,好麻烦。 干脆直接做个登录验证函数吧,对我来说,大都情况可以胜任了:) code%Function chk_regist(requestname,requestpwd,tablename,namefield,pwdfield,reurl)dim cn_name,cn_pwdcn_name=trim(request.form(&requestname&)cn_pwd=trim(request.form(&requestpwd&)if cn_name= or cn_pwd= th
2、enresponse.Write(alert(请将帐号密码填写完整,谢谢合作。);history.go(-1)end ifSet rs = server.CreateObject (ADODB.Recordset)sql = Select * from &tablename& where &namefield&=&cn_name&rs.open sql,conn,1,1if rs.eof thenresponse.Write(alert(没有该会员ID,请确认有没有被申请。);history.go(-1)elseif rs(&pwdfield&)=cn_pwd then session(cn_
3、name)=rs(&namefield&)response.Redirect(reurl)elseresponse.Write(alert(提醒,您的帐号和密码是不吻合。注意数字和大小写。);history.go(-1)end ifend ifrs.close Set rs = NothingEnd Function% code参数说明: chk_regist(requestname,requestpwd,tablename,namefield,pwdfield,reurl) requestname 为接受HTML页中输入名称的INPUT控件名 requestpwd 为接受HTML页中输入密码
4、的INPUT控件名 tablename 为数据库中保存注册信息的表名 namefield 为该信息表中存放用户名称的字段名 pwdfield 为该信息表中存放用户密码的字段名 reurl 为登录正确后跳转的页 引用示例如下: 2,经常有可能对某个事物进行当前状态的判断,一般即做一字段(数值类型,默认值为0) 通过对该字段值的修改达到状态切换的效果。那么,我又做了个函数,让自己轻松轻松。 参数说明: pvouch(tablename,fildname,autoidname,indexid) tablename 该事物所在数据库中的表名 fildname 该事物用以表明状态的字段名(字段类型是数值
5、型) autoidname 在该表中的自动编号名 indexid 用以修改状态的对应自动编号的值 引用示例如下: %dowhat=request.QueryString(dowhat)p_id=cint(request.QueryString(p_id)if dowhat=tj and p_id thencall pvouch(cn_products,p_vouch,p_id,p_id)end if%推荐取消推荐 3,为很多中小企业写站点,一般产品展示是个大项目,那么做成的页面也就不同。 要不就是横排来几个,要不就是竖排来几个,甚至全站要翻来覆去的搞个好几次,麻烦也很累。 索性写个函数能缓解一
6、下,于是就成了下面 参数说明:showpros(tablename,topnum,fildname,loopnum,typenum) whichpro为选择何类型的产品种类 topnum表示提取多少条记录 fildname表示调试显示的字段,具体应用的时候可以省去该参数,在函数内部直接使用 loopnum表示显示的循环每行的记录条数 typenum表示循环显示的方法:目前分了两类,横向并列、纵向并列显示同一数据记录行的不同记录 引用示例如下: %if request.form(submit) thentopnum=request.form(topnum)loopnum=request.form
7、(loopnum)typenum=request.form(typenum)elsetopnum=8loopnum=2typenum=1end if% 1.文件上传(单个)upload.asp文件上传参数及数据库插入页面upLoad_class.asp上传类%ClassUpLoadClassPrivateVer,Err,FormD,FormStream,ItemStreamDimMaxSize,FileType,SavePath,AutoSavePrivateSubClass_InitializeMaxSize=150*1024FileType=jpg/gifSavePath=UpLoadFi
8、le/AutoSave=trueVer=RumorUpLoadClassVersion1.02Err=0SetFormD=Server.CreateObject(Scripting.Dictionary)FormD.CompareMode=1SetFormStream=server.CreateObject(ADODB.Stream)SetItemStream=server.CreateObject(ADODB.Stream)EndSubPrivateSubClass_TerminateSetItemStream=nothingFormStream.Close()SetFormStream=n
9、othingFormD.RemoveAllSetFormD=nothingEndSubPublicSubOpen()DimRequestSize,RequestDataRequestSize=Request.TotalBytesifRequestSize0thenifItemStream.Size0thenDimSourceFile,TargetFilepTemp=52+Len(ItemName)SourceFile=Mid(ItemInfo,pTemp,Instr(pTemp,ItemInfo,)-pTemp)FormD.AddItemName&_Type,Mid(ItemInfo,Inst
10、r(pTemp,ItemInfo,Content-Type:)+14)FormD.AddItemName&_Name,Mid(SourceFile,InstrRev(SourceFile,)+1)FormD.AddItemName&_Path,Left(SourceFile,InstrRev(SourceFile,)ifInstrRev(SourceFile,.)0thenFormD.AddItemName&_Ext,Mid(SourceFile,InstrRev(SourceFile,.)+1)elseFormD.AddItemName&_Ext,endifFormD.AddItemName
11、&_From,pStartFormD.AddItemName&_Size,ItemStream.SizeFormD.AddItemName&_Err,0ifInstr(1,LCase(/&FileType&/),LCase(/&FormD(ItemName&_Ext)&/)=0thenifErrMaxSizethenifErr1thenErr=Err+1FormD(ItemName&_Err)=FormD(ItemName&_Err)+1endififFormD(ItemName&_Err)=0thenifAutoSavethentarFileName=GetTimeStr()ifFormD(
12、ItemName&_Ext)thentarFileName=tarFileName&.&FormD(ItemName&_Ext)FormD.AddItemName,tarFileNameItemStream.SaveToFileServer.MapPath(SavePath&tarFileName),2elseFormD.AddItemName,PleasesavefirstendifendifelseFormD.AddItemName,endifelseItemStream.Position=0ItemStream.Type=2ItemStream.Charset=gb2312ItemDat
13、a=ItemStream.ReadTextifFormD.Exists(ItemName)thenFormD(ItemName)=FormD(ItemName)&,&ItemDataelseFormD.AddItemName,ItemDataendifendifItemStream.Close()pStart=pEnd+LenB(Separator)+2loopUntilpStart+3FormSizeEndSubPublicFunctionGetTimeStr()GetTimeStr=Cstr(Date()&FormatNumber(Timer()*1000,0)GetTimeStr=rep
14、lace(replace(GetTimeStr,-,),)EndFunctionPublicSubSave(Item,FileName)ifNotAutoSaveandFormD.Exists(Item&_From)thenifFormD(Item&_Err)0thenFormD(Item)=ExitSubEndifItemStream.Type=1ItemStream.OpenFormStream.Position=FormD(Item&_From)FormStream.CopyToItemStream,FormD(Item&_Size)ItemStream.SaveToFileServer
15、.MapPath(SavePath&FileName),2ItemStream.Close()FormD(Item)=FileNameendifEndSubPublicFunctionGetData(Item)GetData=ifFormD.Exists(Item&_From)thenifFormD(Item&_Err)0thenExitFunctionFormStream.Position=FormD(Item&_From)GetData=FormStream.Read(FormD(Item&_Size)endifEndFunctionPublicFunctionForm(Item)ifFo
16、rmD.Exists(Item)thenForm=FormD(Item)elseForm=endifEndFunctionPublicFunctionQueryString(Item)QueryString=request.QueryString(Item)EndFunctionPublicFunctionVersion()Version=VerEndFunctionPublicFunctionError()Error=ErrEndFunctionEndClass%2.生成数字图片(验证码)%ClassUpLoadClassPrivateVer,Err,FormD,FormStream,Ite
17、mStreamDimMaxSize,FileType,SavePath,AutoSavePrivateSubClass_InitializeMaxSize=150*1024FileType=jpg/gifSavePath=UpLoadFile/AutoSave=trueVer=RumorUpLoadClassVersion1.02Err=0SetFormD=Server.CreateObject(Scripting.Dictionary)FormD.CompareMode=1SetFormStream=server.CreateObject(ADODB.Stream)SetItemStream
18、=server.CreateObject(ADODB.Stream)EndSubPrivateSubClass_TerminateSetItemStream=nothingFormStream.Close()SetFormStream=nothingFormD.RemoveAllSetFormD=nothingEndSubPublicSubOpen()DimRequestSize,RequestDataRequestSize=Request.TotalBytesifRequestSize1thenErr=4ExitSubendifRequestData=Request.BinaryRead(RequestSize)DimFormSize,CrLf,bCrLf,ListSeparator,LenListSep,FormDataFormStream.Type=1FormStrea
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1