|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
ASP最大的缺点在于网络的安全性和可靠性,企业将经营数据放在开放的平台上,最大的担忧就是如何保证这些数据不被其他人破坏。毛病怎样在ASP中完成毛病圈套手艺(即完成VB中的所谓的OnErrorGoTo)
代码以下(一共4个文件)
1。error1.asp(用来天生毛病)
<html>
<head>
<title>输出数据</title>
</head>
<body>
<formmethod="POST"action="error2.asp"name="form1">
<divalign="left"><tableborder="1"width="340"height="35">
<tr>
<tdwidth="143"height="11">喜好的盘算机</td>
<tdwidth="185"height="11"><inputtype="text"name="T1"size="20"></td>
</tr>
<tr>
<tdwidth="143"height="12">喜好的游戏:</td>
<tdwidth="185"height="12"><inputtype="text"name="T2"size="20"></td>
</tr>
</table>
</div><p>:<inputtype="submit"value="Submit"name="B1"><inputtype="reset"value="Reset"
name="B2"></p>
</form>
</body>
</html>
2。error2.asp
<%@Language="vbscript"%>
<%
Response.buffer=True
OnErrorResumeNext
dimconn
dimrs
setconn=server.createobject("adodb.connection")
conn.open"Example_DSN"
Iferr.number0Then
Response.Redirect"Error3.asp?number="&err.Number&"&desc="&Server.URLEncode(err.description)
EndIf
setrs=server.createobject("adodb.recordset")
rs.open"TableName",conn,3,3
Iferr.number0Then
Response.Redirect"Error3.asp?number="&err.Number&"&desc="&Server.URLEncode(err.description)
EndIf
rs.addnew
rs("field1")=request.form("field1")
rs("field2")=request.form("field2")
rs.update
Iferr.number0Then
Response.Redirect"Error3.asp?number="&err.Number&"&desc="&Server.URLEncode(err.description)
EndIf
rs.close
conn.close
setrs=nothing
setconn=nothing
%>
<html>
<head>
<title>乐成</title>
</head>
<body>
<p>操纵完成!</p>
</body>
</html>
3。error3.asp
<%@language="vbscript"%><%
response.buffer=True
dimstrNumber
dimstrdesc
dimconn
dimrs
strconn="DRIVER=MicrosoftAccessDriver(*.mdb);DBQ="&Server.MapPath("error.mdb")
strNumber=request("Number")
strDesc=request("Desc")
setconn=server.createobject("adodb.connection")
conn.openstrconn
setrs=server.createobject("adodb.recordset")
rs.open"tblError",conn,2,2
rs.addnew
rs("ErrNumber")=strNumber
rs("ErrDesc")=strDesc
rs("timeoccurred")=now()
rs.update
rs.movelast
strID=rs("id")
rs.close
setrs=nothing
conn.close
setconn=nothing
err.clear
%></p>
<html>
<head>
<title>堕落页面</title>
</head>
<body>
<h1>产生毛病</h1>
<h2>毛病ID为:<%=strID%></h2>
<h3>毛病号为:</h3>
<i><%=strNumber%>
</i>
<h3>毛病形貌为:</h3>
<i><%=strDesc%>
</i>
</body>
</html>
4。一个用来纪录毛病的数据库(Access)
共有errNumber,ErrDesc,timeoccurred三个字段</p>写软件都是想的时间比写的时间要长的.如果反过来了就得看看是什么原因了.另外大家可以回去问问公司里的小MM.(一般企业里,跟你们交付软件接触得最多的是她们) |
|