' 打开数据库
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"
'==================================================================================================
一个BBS的源代码(二)
时间： 2024-09-20 05:42:29
一个BBS的源代码(二)的相关文章
一个BBS的源代码(五)
源代码 '==================================================================================================Case "Modify"'==================================================================================================' 修改文章 Which = Request("W
一个BBS的源代码(四)
源代码 '==================================================================================================Case "Write"'==================================================================================================' 发表文章 %> <TABLE align=ce
一个BBS的源代码(三)
源代码 '==================================================================================================Case "Content"'==================================================================================================' 显示内容 If Request("Keywo
一个BBS的源代码(六)
源代码 <%'==================================================================================================Case "Adduser"'==================================================================================================' 添加用户'============== Us
一个BBS的源代码(一)
建立数据库结构:' bbs' 序号 INT NOT NULL IDENTITY' 作者 VARCHAR(80)' 题目 VARCHAR(255)' 回复 INT NOT NULL DEFAULT 0' 点击 INT NOT NULL DEFAULT 0' 时间 DATETIME DEFAULT GETDATE()' 内容 TEXT' 邮件通知 BIT DEFAULT 0'' bbsreply' 序号 INT NOT NULL IDENTITY' 原文 INT' 作者 VARCHAR(80)' 题
html5- 求一个 计算器的 源代码求一个 计算器 的代码 谢谢各位大神
问题描述 求一个 计算器的 源代码求一个 计算器 的代码 谢谢各位大神 求一个 计算器 的代码 谢谢各位大神 求一个 计算器 的代码 谢谢各位大神 解决方案 html的 https://www.baidu.com/link?url=szrkXmxu37Ulv-6gand7apF8D2-v7y4-IHNQJ-lS8z-RpqIS7OGCiFJbUNEql_9MDGosqa5Yqw72QYx-X6Jv6K&wd=&eqid=a9ff47db000079ff0000000555b47cebhtt
c语言-写了一个先序创建二叉链表的程序，但是怎么都不能成功
问题描述 写了一个先序创建二叉链表的程序,但是怎么都不能成功 源代码: #include #include #include #define TElemtype char #define Status int #define OK 1 #define ERROR 0 typedef struct BiTNode { TElemtype data; struct BiTNode lchild,*rchild; }BiTNode; typedef BiTNode BiTree; Status Cre
这是一个BBS测试
问题描述 这是一个BBS测试这是一个BBS测试这是一个BBS测试这是一个BBS测试这是一个BBS测试这是一个BBS测试这是一个BBS测试这是一个BBS测试这是一个BBS测试这是一个BBS测试 解决方案 解决方案二:这是一个BBS测试解决方案三:这是一个BBS测试解决方案四:这是一个BBS测试解决方案五:这是一个BBS测试解决方案六:这是一个BBS测试
求一个MD5加密 源代码（VB）
问题描述 求一个MD5加密源代码(VB)先在这谢谢大家了 解决方案 解决方案二:stringmd5=System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(yourstring,"MD5"); 解决方案三:ImportsSystem.Security.Cryptography...FormsAuthentication.HashPasswordForStoringInConfigFile(tx