📄 index.asp
字号:
<%
key=trim(request("key"))
sm=trim(request("sm"))
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>周公解梦</title>
<META name=description content="周公解梦,为您解梦！专业、免费的在线周公解梦网站">
<meta name=keywords content="周公解梦,梦,做梦,周公,解梦，做噩梦,梦见,周易,周易解梦，梦与睡眠,噩梦">
<link rel="stylesheet" href="CSS.css" type="text/css">
<style type="text/css">
<!--
.STYLE1 {
font-size: 12px;
font-weight: bold;
}
-->
</style>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<div align="left" class="STYLE1">
</div>
<table width="760" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight=#CCCCCC bordercolordark=#FFFFFF class="Black14">
<tr bgcolor=#EFF2F3 height=30 class=Black12>
<td width="65%" align="left"><form name="form1" action="search.asp" method="post" >解梦检索：
<input type="text" name="key" value="<%=key%>" size="20">
<input type="submit" name="submit" value="搜索">----周公解梦-www.Vixf.com----</td>
<td width="35%" align="right"><a href="/">首页</a> ＞ <a href="./">周公解梦</a> ＞ 周公解梦目录表</td>
</tr></form>
</table>
<table width="760" align="center">
<tr><td>
<hr></hr>
</tr></td></table>
<%
if sm<>"" then
dim conn,rst
Set conn = Server.CreateObject("ADODB.Connection")
'conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dream.mdb")
'新版本连接数据库
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("dream.mdb")
'老版本连接数据库
Set rst = Server.CreateObject("ADODB.Recordset")
'创建游标
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -