|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
因为现在数据库都使用标准的SQL语言对数据库进行管理,所以如果是标准SQL语言,两者基本上都可以通用的。SQLServer还有更多的扩展,可以用存储过程,数据库大小无极限限制。源代码翻开数据库
SetCon=Server.CreateObject("ADODB.Connection")
Con.Open"asp",Application("ConASP_RuntimeUserName"),Application("ConASP_RuntimePassword")
SetRecBBS=Server.CreateObject("ADODB.RecordSet")
SetRecReply=Server.CreateObject("ADODB.RecordSet")
SetRecMember=Server.CreateObject("ADODB.RecordSet")
%>
<HTML>
<HEAD>
<METANAME="GENERATOR"Content="MicrosoftVisualStudio6.0">
<METAHTTP-EQUIV="Content-Type"Content="text/html;charset=gb2312">
<TITLE>履历交换</TITLE>
<STYLETYPE="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:1pxsolid;
border-left:1pxsolid;
border-right:1pxsolid;
border-bottom:1pxsolid;
}
select{
color:#000000;
font-size:9pt;
border-top:1pxsolid;
border-left:1pxsolid;
border-right:1pxsolid;
border-bottom:1pxsolid;
}
textarea{
color:#000000;
font-size:9pt;
border-top:1pxsolid;
border-left:1pxsolid;
border-right:1pxsolid;
border-bottom:1pxsolid;
}
a:link{
text-decoration:none;
}
a:visited{
text-decoration:none;
}
a:hover{
text-decoration:underline;
}
</STYLE>
</HEAD>
<BODYbgcolor=#c0c0c0>
<P>
<TABLEalign=centervalign=topbgColor=#d0d0d0border=1borderColorDark=#f0f0f0borderColorLight=#505050cellPadding=5cellSpacing=0width=600height=400>
<TR>
<TDvalign=top>
<%
Job=Request("Job")
IfJob=""ThenJob="List"
==================================================================================================
SelectCaseJob
==================================================================================================
==================================================================================================
Case"List"
==================================================================================================
显现文章
%>
<TABLEalign=centerborder=0cellPadding=1cellSpacing=0width=650>
<TR>
<TD>
<TABLEWIDTH="100%"ALIGN=centerBORDER=0CELLSPACING=0CELLPADDING=2BGCOLOR=#f0f0d0>
<TR>
<TDclass=menuvalign=top>
<Ahref="/">飞林庄</A>-><Ahref="<%=ASP_FILE_NAME%>">履历交换</A>
</TD>
<TDclass=menu></TD>
<TDalign=rightclass=menu>
<FORMaction="<%=ASP_FILE_NAME%>"method=get>
<INPUTtype=hiddenname=Jobvalue=List>
[<Ahref="<%=ASP_FILE_NAME%>?Job=Write">宣布文章</A>][<Ahref="<%=ASP_FILE_NAME%>?Job=Apply">请求账号</A>]
<INPUTid=KeywordmaxLength=20name=Keywordsize=18>
<INPUTtype=Submitvalue=主题搜刮>
</FORM>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<TABLEalign=centerbgColor=#000000border=0cellPadding=1cellSpacing=1width=650>
<%
IfRequest("Keyword")""ThenKeyWord=Request("Keyword")ElseKeyWord=""
IfRequest("Page")=""Then
IfIsNumeric(Session("BBS_Page"))Then
Page=Int(Session("BBS_Page"))
Else
Page=1
EndIf
Else
Page=Int(Request("Page"))
EndIf
IfPage<1ThenPage=1
RecBBS.PageSize=ListSize
SQL="SELECT*FROMbbs"
IfKeyWord""Then
SQL=SQL+"WHERE[标题]LIKE%"&KeyWord&"%"
EndIf
SQL=SQL+"ORDERBY[序号]DESC"
RecBBS.OpenSQL,Con,3
PageCount=RecBBS.PageCount
RecordCount=RecBBS.RecordCount
IfPage>PageCountThenPage=PageCount
Session("BBS_Page")=Page
IfNotRecBBS.EOFThen
%>
<TR>
<TD>作者</TD>
<TD>标题</TD>
<TD>复兴&l</p>帮助用户快速实现各种应用服务,ASP商有整合各方面资源的能力,可在短期内为用户提供所需的解决方案。例如,典型的ERP安装,如果要在客户端安装的话需要半年到二年的时间,但是美国的一些ASP商如USI和CORIO能在90—120天内提供ERP应用方案。 |
|