error_ip = Request.ServerVariables("REMOTE_ADDR")
if error_ip = "202.103.229.174" then
Response.Write("本站不欢迎你的到来。")
Response.End()
end if
'数据库链接字符串
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("asp/###！￥%diary.asp")
conn.open connstr
if err.number 0 then
Response.Write("连接数据库出错！请与管理员联系")
Response.end
end if
Function CloseDataConn
conn.close
set conn = Nothing
end Function
%>
Flash日记本和Flash留言本
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
body,td,th {
font-size: 12px;
}
a:link {
color: #3300CC;
text-decoration: none;
}
a:visited {
text-decoration: none;
color: #3300CC;
}
a:hover {
text-decoration: underline;
color: #0099FF;
}
a:active {
text-decoration: none;
color: #FF9900;
}
.style3 {color: #FF0000}
-->
SQLdiary="select top 13 * from diary where ifPassword=1 order by date_insert desc"
RSdiary.Open SQLdiary,conn,1,1
%>
if not RSdiary.eof then
'取得会员ID号
SET RS_HYname = Server.CreateObject("ADODB.Recordset")
i=1
do while i RS_SQL="select id from HuiYuan where HYname='"&RSdiary("HYname")&"'"
RS_HYname.Open RS_SQL,conn,1,1
%>
·
RS_HYname.close
i=i+1
RSdiary.MoveNext
if RSdiary.eof then exit do end if
loop
end if
RSdiary.close
%>
SQLdiary="select top 13 * from diary where ifPassword=1 and tuiJian=1 order by date_insert desc"
RSdiary.Open SQLdiary,conn,1,1
if not RSdiary.eof then
i=1
do while i RS_SQL="select id from HuiYuan where HYname='"&RSdiary("HYname")&"'"
RS_HYname.Open RS_SQL,conn,1,1
%>
·
RS_HYname.close
i=i+1
RSdiary.MoveNext
if RSdiary.eof then exit do end if
loop
end if
RSdiary.close
set RSdiary = Nothing
%>
google_ad_client = "pub-7753774943472744";
google_ad_width = 468;
google_ad_height = 60;
google_ad_format = "468x60_as";
google_ad_type = "text_image";
google_ad_channel ="";
google_color_border = "FFFFFF";
google_color_bg = "FFFFFF";
google_color_link = "FF0000";
google_color_url = "0000FF";
google_color_text = "333333";
//-->
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
当前在线：人
