繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 一个BBS的源代码(二)
- ASP
- BytesToBstr获取的源码转换为中文的代码
- PostHttpPage用asp是实现模拟登录效果的代码
- asp下实现UrlEncoding转换编码的代码
- GetBody asp实现截取字符串的代码
- asp之GetArray提取链接地址，以$Array$分隔的代码
- DefiniteUrl asp将相对地址转换为绝对地址的代码
- ReplaceSaveRemoteFile 替换、保存远程图片 的代码
- ReSaveRemoteFile函数之asp实现查找文件保存替换的代码
- FormatRemoteUrl函数之asp实现格式化成当前网站完整的URL-将相对地址转换为绝对地址的代码
- ReplaceTrim 函数之asp实现过滤掉字符中所有的tab和回车和换行的代码
- CheckFile函数之asp实现检查某一文件是否存在的代码
- SaveRemoteFile函数之asp实现保存远程的文件到本地的代码
- FpHtmlEnCode 函数之标题过滤特殊符号的代码
- GetPaing 函数之asp采集函数中用到的获取分页的代码
- ScriptHtml 函数之过滤html标记的asp代码
- asp实现检查目录是否存在与建立目录的函数
- ShowPage 显示“上一页 下一页”等信息的封装代码
- JoinChar 向地址中加入 ? 或 & 用于实现传参
- CreateKeyWord asp实现的由给定的字符串生成关键字的代码
- Server.Execute方法执行指定的ASP程序
ASP 中的 一个BBS的源代码(二)
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 243 ::
收藏到网摘: n/a
Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "asp" , Application("ConASP_RuntimeUserName") , Application("ConASP_RuntimePassword")
Set RecBBS = Server.CreateObject("ADODB.RecordSet")
Set RecReply = Server.CreateObject("ADODB.RecordSet")
Set RecMember = Server.CreateObject("ADODB.RecordSet")
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<META HTTP-EQUIV="Content-Type" Content="text/html; charset=gb2312">
<TITLE>经验交流</TITLE>
<STYLE TYPE="TEXT/CSS">
td {
color: #ffffff;
font-size: 9pt;
}
td.menu {
color: #000000;
background-color: #f0f0d0;
font-size: 12pt;
}
input {
color: #000000;
font-size: 9pt;
border-top: 1px solid;
border-left: 1px solid;
border-right: 1px solid;
border-bottom: 1px solid;
}
select {
color: #000000;
font-size: 9pt;
border-top: 1px solid;
border-left: 1px solid;
border-right: 1px solid;
border-bottom: 1px solid;
}
textarea {
color: #000000;
font-size: 9pt;
border-top: 1px solid;
border-left: 1px solid;
border-right: 1px solid;
border-bottom: 1px solid;
}
a:link {
text-decoration: none;
}
a:visited {
text-decoration: none;
}
a:hover {
text-decoration: underline;
}
</STYLE>
</HEAD>
<BODY bgcolor=#c0c0c0>
<P>
<TABLE align=center valign=top bgColor=#d0d0d0 border=1 borderColorDark=#f0f0f0 borderColorLight=#505050 cellPadding=5 cellSpacing=0 width=600 height=400>
<TR>
<TD valign=top>
<%
Job = Request("Job")
If Job = "" Then Job = "List"
'==============================
Select Case Job
'==============================
'=============================
Case "List"
'==============================
' 显示文章
%>
<TABLE align=center border=0 cellPadding=1 cellSpacing=0 width=650>
<TR>
<TD>
<TABLE WIDTH="100%" ALIGN=center BORDER=0 CELLSPACING=0 CELLPADDING=2 BGCOLOR=#f0f0d0>
<TR>
<TD class=menu valign=top>
<A href="/">飞林庄</A>-><A href="<%= ASP_FILE_NAME %>">经验交流</A>
</TD>
<TD class=menu></TD>
<TD align=right class=menu>
<FORM action="<%= ASP_FILE_NAME %>" method=get>
<INPUT type=hidden name=Job value=List>
[<A href="<%= ASP_FILE_NAME %>?Job=Write">发表文章</A>][<A href="<%= ASP_FILE_NAME %>?Job=Apply">申请账号</A>]
<INPUT id=Keyword maxLength=20 name=Keyword size=18>
<INPUT type=Submit value=主题搜索>
</FORM>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<TABLE align=center bgColor=#000000 border=0 cellPadding=1 cellSpacing=1 width=650>
<%
If Request("Keyword") <> "" Then KeyWord = Request("Keyword") Else KeyWord = ""
If Request("Page") = "" Then
If IsNumeric( Session("BBS_Page") ) Then
Page = Int(Session("BBS_Page"))
Else
Page = 1
End If
Else
Page = Int(Request("Page"))
End If
If Page &
评论 (0) All
