|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
减少客户内IT专业人才缺乏带来的影响。ASP的客户员工利用浏览器进入相关的应用软件,简单易用,无需专业技术支持。程序写得对照粗拙,另有一点毛病,不外能到达效果,对付着用了,是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
%>
</p>结论:和PHP一样,ASP简单而易于维护,很适合小型网站应用,通过DCOM和MTS技术,ASP甚至还可以完成小规模的企业应用,但ASP的致命缺点就是不支持跨平台的系统,在大型项目开发和维护上非常困难。 |
|