?? conn.asp
字號:
<%
Response.Buffer=true
otime=timer()
'On Error Resume Next
Set conn=Server.CreateObject("ADODB.Connection")
connstr="provider=microsoft.jet.oledb.4.0;" & "data source = " & server.mappath("data.asp\data.mdb")
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
%>
<form method="POST" action="err.asp" name="errform" type="hidden">
<textarea rows="1" name="errneirong" cols="1" >
<p align="left"><span style="font-style: 12px"><font color="#000000"> 出錯拉！！</font></span></p>
<p align="left"> 好像<span style="font-style: 12px"><font color="#000000">數據庫有點問題，請聯系管理員解決呀。</font></span></p>
<p align="left"> E<span style="font-style: 12px"><font color="#000000">-mail：<a href="mailto:webird@126.com">webird@126.com</a><br>
</font></span></p>
</textarea>
<script language=vbscript>
self.document.forms("errform").submit
</script>
</form>
<%
Response.End
End If
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -