|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
帮助用户快速实现各种应用服务,ASP商有整合各方面资源的能力,可在短期内为用户提供所需的解决方案。例如,典型的ERP安装,如果要在客户端安装的话需要半年到二年的时间,但是美国的一些ASP商如USI和CORIO能在90—120天内提供ERP应用方案。asp+|喜好者刘玉锋
http://aspfans.yeah.net
前一段工夫本站将首页改换为了ASP+程序,为了能让更多的伴侣对asp+有更好的懂得,以是特将源代码
公然,至于对代码的正文,信任人人参考如今网上的asp+语法之类的东东都能看懂,次要触及到VB与(ADO+)
对数据库举行读取操纵,此程序仅仅作为一个参考。
<%@ImportNamespace="System.Data"%>
<%@ImportNamespace="System.Data.ADO"%>
<html>
<head>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<metaname="GENERATOR"content="MicrosoftFrontPage4.0">
<title>ASP喜好者</title>
<STYLEtype=text/CSS>.unnamed1{
FONT-SIZE:9pt
}
</STYLE>
<STYLEtype=text/css>A{
COLOR:#0000ff;FONT-SIZE:9pt;TEXT-DECORATION:none
}
A:visited{
COLOR:#000000;TEXT-DECORATION:none
}
A:hover{
COLOR:#ff99ff;TEXT-DECORATION:underline
}
TD{
FONT-SIZE:9pt;LINE-HEIGHT:14pt
}
</STYLE>
<scriptlanguage="vb"runat=server>
SubPage_Load(SourceAsObject,EAsEventArgs)
DimDSAsDataSet
DimMyConnectionAsADOConnection
DimMyCommandAsADODataSetCommand
DimstrSqlasString
以下是数据库联合
MyConnection=NewADOConnection("Driver={MicrosoftAccessDriver(*.mdb)};DBQ="&server.mappath
("XXXXX.mdb"))
strSql="SELECTtop5Topics.T_Message,Topics.T_Status,Topics.Forum_ID,Topics.Topic_ID,
Topics.T_subject,Topics.T_Mail,Topics.T_Originator,Topics.T_Replies,
Topics.T_Last_Post,forum.Forum_ID,forum.F_Name"
strSql=strSql&"FROMTopics,forumwhereTopics.Forum_ID=forum.Forum_ID"
strSql=strSql&"orderbyTopics.T_Last_PostDESC"
MyCommand=NewADODataSetCommand(strSql,myConnection)
DS=newDataSet()
MyCommand.FillDataSet(DS,"Topics1")
dlwenzhang.DataSource=DS.Tables("Topics1").DefaultView
dlwenzhang.DataBind()
MyConnection=NewADOConnection("Driver={MicrosoftAccessDriver(*.mdb)};DBQ="&server.mappath
("XXXXX.mdb"))
strSql="SELECTtop5*FROMlinks,catswherelinks.catid=cats.catidorderbylinks.linkidDESC"
MyCommand=NewADODataSetCommand(strSql,myConnection)
DS=newDataSet()
MyCommand.FillDataSet(DS,"Topics2")
daima.DataSource=DS.Tables("Topics2").DefaultView
daima.DataBind()
MyConnection=NewADOConnection("Driver={MicrosoftAccessDriver(*.mdb)};DBQ="&server.mappath
("XXXXX.mdb"))
strSql="SELECTtop5*FROMlinks,catswherelinks.catid=cats.catidorderbylinks.linkidDESC"
MyCommand=NewADODataSetCommand(strSql,myConnection)
DS=newDataSet()
MyCommand.FillDataSet(DS,"Topics3")
zujian.DataSource=DS.Tables("Topics3").DefaultView
zujian.DataBind()
EndSub
</script>
</head>
<body>
<tableborder="0"width="100%"bordercolor="#008080"bordercolorlight="#C0C0C0"
bordercolordark="#FFFFFF">
<tr>
<td></a></td>
</tr>
<tr>
<tdwidth="100%"bgcolor="#C0C0C0"colspan="2"><fontcolor="#FFFFFF"><ahref="default.asp"
>本站首页</a>-<ahref="info/Default.asp"
>旧事</a>-<ahref="forum/default.asp"
>文章</a>-<ahref="source/default.asp"
>源码</a>-<ahref="com/default.asp"
>组件</a>-<ahref="chat/default.asp"
>聊天</a>-<ahref="bbs1/default.asp"
>论坛</a>-<ahref="aspbook.asp"
>教程</a>-<ahref="www.asp"
>站点</a>-<ahref="aspgbook/addguest.htm"
>留言</a>-<ahref="products.htm"
>产物发卖</a>-</font><ahref="freehost.asp"
style="color:rgb(255,255,0)"><fontcolor="#00FF80">收费空间</font></p>实现规模效益。与传统的用户拥有硬件软件所有权和使用权以及传统的应用服务商提供一对一的服务模式不同,ASP拥有应用系统所有权,用户拥有使用权,应用系统集中放在ASP的数据中心中,集中管理,分散使用,以一对多的租赁的形式为众多用户提供有品质保证的应用技术服务,实现规模效益。 |
|