繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 一个BBS的源代码(二)
- ASP
- ASP调用ORACLE存储过程并返回结果集
- 用ASP实现网页BBS
- 关于Global.asa文件的深入研究与session变量失效提示的具体方法
- 简易ASP+注册系统
- 防护手册：如何防止ASP木马在服务器上运行
- 用Visual Basic实现多画面播放功能之二
- 如何增强ASP程序性能(1)
- 如何增强ASP程序性能(2)
- 如何增强ASP程序性能(3)
- ASP备份数据库
- 二十八条改善 ASP 性能和外观的技巧
- 在Form域中Post大于100K的数据
- 如何使用ASP制作模似动态生长的表单?
- Microsoft IIS 真的如此「不安全」吗？(1)
- Microsoft IIS 真的如此「不安全」吗？(2)
- Microsoft IIS 真的如此「不安全」吗？(3)
- Microsoft IIS 真的如此「不安全」吗？(4)
- Microsoft IIS 真的如此「不安全」吗？(5)
- 关于页面和代码分离
- ServerVariables 对路径的操作
ASP 中的 一个BBS的源代码(二)
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 138 ::
收藏到网摘: 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
