📄 diary_index.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
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
%>
<html>
<head>
<META http-equiv=Content-Language content=zh-cn>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Description" content="我爱我吧学习网,Flash留言本,Flash日记本,日记,日记本,我的Flash日记本,Flash多用户留言本,Flash日记,Flash与asp日记程序">
<meta name="Keywords" content="我爱我吧学习网,Flash留言本,Flash日记本,日记,日记本,我的Flash日记本,Flash多用户留言本,Flash日记,Flash与asp日记程序">
<META content="MSHTML 6.00.2800.1106" name=GENERATOR>
<META NAME="ROBOTS" CONTENT="all">
<title>Flash日记本和Flash留言本</title>
<style type="text/css">
<!--
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}
-->
</style>
</head>
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top"><table width="96%" border="0" cellspacing="0" cellpadding="0">
<tr align="left">
<%SET RSdiary = Server.CreateObject("ADODB.Recordset")
SQLdiary="select top 13 * from diary where ifPassword=1 order by date_insert desc"
RSdiary.Open SQLdiary,conn,1,1
%>
<td width="50%"> <a href="diary.asp" target="_blank"><img src="image/home/diary_01.gif" width="131" height="33" border="0"></a></td>
</tr>
</table>
<table width="96%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFF0">
<%
if not RSdiary.eof then
'取得会员ID号
SET RS_HYname = Server.CreateObject("ADODB.Recordset")
i=1
do while i<=10
RS_SQL="select id from HuiYuan where HYname='"&RSdiary("HYname")&"'"
RS_HYname.Open RS_SQL,conn,1,1
%>
<tr align="left">
<td height="18">·<a href="diary/showdiary.asp?id=<%=RSdiary("id")%>" class="link" target="_blank"><%=Left(trim(RSdiary("title")),12)%></a></td>
<td width="25%" class="down"><%=RSdiary("HYname")%></td>
<td width="14%" align="center" class="down"><%=month(RSdiary.fields("date_insert"))&"-"&day(RSdiary.fields("date_insert"))%></td>
</tr>
<%
RS_HYname.close
i=i+1
RSdiary.MoveNext
if RSdiary.eof then exit do end if
loop
end if
RSdiary.close
%>
</table></td>
<td align="right" valign="top"><table width="96%" border="0" cellspacing="0" cellpadding="0">
<tr align="left">
<td width="50%" height="40" align="left" valign="bottom"> <a href="diary.asp" target="_blank"><img src="image/home/diary_02.gif" width="149" height="33" border="0"></a></td>
</tr>
</table>
<table width="96%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFF0">
<%
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<=10
RS_SQL="select id from HuiYuan where HYname='"&RSdiary("HYname")&"'"
RS_HYname.Open RS_SQL,conn,1,1
%>
<tr align="left">
<td height="18">·<a href="diary/showdiary.asp?id=<%=RSdiary("id")%>" class="link" target="_blank"><%=Left(trim(RSdiary("title")),12)%></a></td>
<td width="25%" class="down"><%=RSdiary("HYname")%></td>
<td width="14%" class="down"><%=month(RSdiary.fields("date_insert"))&"-"&day(RSdiary.fields("date_insert"))%></td>
</tr>
<%
RS_HYname.close
i=i+1
RSdiary.MoveNext
if RSdiary.eof then exit do end if
loop
end if
RSdiary.close
set RSdiary = Nothing
%>
</table></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><script type="text/javascript"><!--
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";
//--></script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script></td>
<td width="120" align="center">当前在线：<%=application("online")%>人</td>
</tr>
</table>
</body>
</html>
<%CloseDataConn%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -