📄 _conn.asp
字号:
<%
Option Explicit
response.buffer=True
'/////////////////////////////////////////////////////
'// 程序: ASPK爱墙 1.5 作者: 姬宏波 2007.10.07 //
'// 主页：www.aspk.net 邮箱: Jihongbo@gmail.com //
'/////////////////////////////////////////////////////
'敏感字词过滤(,)
Const BAN_LIST="江泽民,胡锦涛,温家宝,共产党,法轮,fuck,操,sex,强奸,日你,性交"
'发帖间隔时间(秒)
Const KEEP_TIME=60
'首页显示条数
Const PAGE_SIZE=50
'列表显示条数
Const LOVE_SIZE=15
Dim db
db="_lovewall.asa" '数据库路径
Dim conn
Set conn=server.CreateObject("ADODB.CONNECTION")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(db)
Sub Header(title)
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>ASPK爱墙<%=title%> - 仿QQ爱墙免费版</title>
<meta content="ASPK爱墙,仿QQ爱墙" name="Description" />
<style><!--@import url(inc/style.css);--></style>
</head>
<body>
<div style="display:none;" id="aspk" onclick="Hide();"></div>
<div id="header">
<span style="float:left;"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="../download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0/#version=7,0,19,0/default.htm" width="160" height="73"><param name="movie" value="images/logo.swf" /><param name="quality" value="high" /><param name="wmode" value="transparent" /><embed src="images/logo.swf" quality="high" pluginspage="../www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="160" height="73"></embed>
</object></span>
<div id="banner"><a href="http//www.aspk.net" target="_blank">ASPK爱墙（仿QQ爱墙）V1.5免费版!</a></div>
</div>
<div id="menu">
<a href="default.asp"><img src="images/btn_index.gif" alt="首页" /></a>
<a href="add.asp"><img src="images/btn_add.gif" alt="贴字条" /></a>
<a href="list.asp"><img src="images/btn_list.gif" alt="字条列表" /></a>
<a href="http://www.aspk.net" target="_blank"><img src="images/btn_aspk.gif" alt="程序支持" /></a>
<input id="find" name="id" class="input" type="text" maxlength="10" size="15" value=" 请输入字条编号 " onclick="this.value='';" />
<input type="image" src="images/btn_search.gif" alt="搜索" onclick="find();" />
</div>
<script type="text/javascript">
<!--
function find(){
var noStr = document.getElementById("find").value;
var no = parseInt(noStr);
if(isNaN(no)){
alert("[字条编号]肯定是数字啊");
return;
}else if(no < 1){
alert("[字条编号]肯定是整数啊");
return;
}else{
window.location.href = "default.asp?id="+no;
}
}
//-->
</script>
<%
End Sub
Sub Footer()
%>
<div id="footer">
<h1>
<a href="default.asp" title="爱墙">首页</a> -
<a href="add.asp" title="贴字条">贴字条</a> -
<a href="list.asp" title="字条列表">字条列表</a> -
<a href="http://www.aspk.net" title="程序支持" target="_blank">程序支持</a> - <script src='http://s101.cnzz.com/stat.php?id=419082&web_id=419082' language='JavaScript' charset='gb2312'></script>
</h1>Powered by <a href="http://www.aspk.net" target="_blank">ASPK 1.5</a>
</div>
</body>
</html>
<%
If request("id") Then response.write "<script type=""text/javascript"">Show("&request("id")&");</script>"
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -