📄 mydirdlysetup.asp

📁 宁波娱乐在线城市,丰富的内容版块

💻 ASP

字号:

<%
datapath="images/dirly/"  '数据库目录的相对路径
datafile=""&datapath&"#dirly.asp"  '日记本数据库的文件名
Server.ScriptTimeout=55  '连接超时最大时间


Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="&server.mappath(datafile)&";DRIVER={Microsoft Access Driver (*.mdb)};"
Conn.Open Connstr
Set rs = Server.CreateObject("ADODB.Recordset")

Set rs1 = Server.CreateObject("ADODB.Recordset")



'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>
<HTML>
<META http-equiv=Content-Type content=text/html;charset=gb2312>
<style type="text/css">
<!--
a,body,td {  font: 9pt "宋体";WORD-BREAK: break-all}
A:link{font-size:9pt;COLOR:black;TEXT-DECORATION: none}
A:visited {font-size:9pt;COLOR:black;TEXT-DECORATION: none}
A:hover {font-size:9pt;COLOR: red; TEXT-DECORATION: underline}
Button,input {  font-family: "宋体"; font-size: 9pt}
-->
</style>
<body topmargin=0>

<%
''''''''''''''''''''''''''''''
sub error2(message)
%>
<META http-equiv=Content-Type content=text/html;charset=gb2312><script>alert('<%=message%>');history.back();</script><script>window.close();</script>
<%
Conn.close
set rs=nothing
set rs1=nothing
set conn=nothing
response.end
end sub
''''''''''''''''''''''''''''''
sub htmlend
%>
<br>
<TABLE cellSpacing=0 cellPadding=0 width=98% align=center bgColor=c4d4e5 border=0>
<TBODY><TR><TD>
<TABLE cellSpacing=1 cellPadding=6 width=390 border=0><TBODY></TBODY></TABLE></TD></TR></TBODY></TABLE><br>
<TABLE cellSpacing=0 cellPadding=0 width=750 align=center>
<TBODY>
<TR><TD align=middle>
Mini 城市 版权所有<br></TD></TR></TBODY></TABLE></BODY></HTML>
<%
Conn.close
set rs=nothing
set rs1=nothing
set conn=nothing
response.end
end sub
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -