📄 mylinksetup.asp

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

💻 ASP

字号:

<%
datapath="images/mylink/"  '数据库目录的相对路径
datafile=""&datapath&"#mylink.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 + -