|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在3秒以内).无论是他们输入资料时,查找资料时,分析资料时.写得对照粗拙,另有一点毛病,不外能到达效果,对付着用了,是4266条,不晓得对也不合错误
create.asp
-----------------------------------------------------------------------
<%
OptionExplicit
Server.Scripttimeout=1000
OnErrorResumeNext
Defineyoursqlinfohere
strSQLDSN="xxxx"
strSQLUsername="sa"
strSQLPassword=""
Thisiswhereweconnecttooursqlserver
SetadoConn=Server.CreateObject("ADODB.Connection")
ConnectionString="dsn="&strSQLDSN&";uid="&strSQLUsername&";pwd="&strSQLPassword&""
adoConn.OpenConnectionString
SetadoRS=Server.CreateObject("ADODB.Recordset")
getsqlfromip.txt
Setfso=Server.Createobject("Scripting.FilesystemObject")
Iffso.Fileexists(Server.Mappath("ip.txt"))then
Seta=fso.OpenTextFile(Server.Mappath("ip.txt"),1,False)
DoWhilea.AtEndOfStreamTrue
sql=a.readline
adoConn.Execute(sql)
Loop
a.close
seta=nothing
Else
Response.Write"文件没找到"
Response.End
Endif
Setfso=Nothing
ErrorHandle
Iferr.number0then
thiscodecomefromhttp://bigeagle.wotoo.com
strMsg=strMsg+"********************************************"+vbcrlf
strMsg=strMsg+"毛病工夫:"+CStr(Now())+vbcrlf
strMsg=strMsg+"毛病范例:Err毛病"+vbcrlf
strMsg=strMsg+"毛病号:"+CStr(Err.Number)+vbcrlf
strMsg=strMsg+"毛病源:"+Err.Source+vbcrlf
strMsg=strMsg+"毛病形貌:"+Err.Description+vbcrlf
strMsg=strMsg+"*********************************************"+vbcrlf
strLogMsg=strLogMsg+"*****************************************"+vbcrlf
strLogMsg=strLogMsg+"毛病工夫:"+CStr(Now())+vbcrlf
strLogMsg=strLogMsg+"毛病范例:Err毛病"+vbcrlf
strLogMsg=strLogMsg+"毛病号:"+CStr(Err.Number)+vbcrlf
strLogMsg=strLogMsg+"毛病源:"+Err.Source+vbcrlf
strLogMsg=strLogMsg+"毛病形貌:"+Err.Description+vbcrlf
strMsg=strMsg+"********************************************"+vbcrlf
Response.WritestrMsg
EndIf
%>
缺点:安全性不是太差了,还行,只要你充分利用系统自带的工具;唯一缺点就是执行效率慢,如何进行网站优化以后,效果会比较好。 |
|