|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
当然了,现在国内CRM厂商的产品与其说是CRM,但从至少从我的角度分析上来看,充其量只是一个大型的进销存而已了,了解尚浅,不够胆详评,这里只提技术问题 (3)打造qBaord.asp页面:
<%
boardid=request("boardid")掏出由上个页面传送过去的看板ID号
Setconn=Server.CreateObject("ADODB.Connection")
conn.Open"driver={MicrosoftAccessDriver(*.mdb)};dbq="&Server.MapPath("bbssystem.mdb")
Setcmd=Server.CreateObject("ADODB.Command")
Setcmd.ActiveConnection=conn
cmd.CommandText="主题列表"
ReDimparam(0)//注:声明参数数组
param(0)=CLng(boardid)//注:CLng不成疏忽
Setrs=cmd.Execute(,param)
%>
<html>
<head>
<title>主题列表</title>
<metahttp-equiv="Content-Type"content="text/html;charset=GB2312">
</head>
<bodybgcolor="#FFFFFF">
<h1align="center"><%=rs("看板名")%>板主题列表</h1>
<tablewidth="80%"border="0"cellspacing="0"cellpadding="0"align="center">
<trbgcolor="#FFFFCC">
<tdwidth="89%"height="21">主题</td>
<tdwidth="11%"height="21">文章数</td>
</tr>
<%
do
topicid=rs("id")
topicname=rs("题目")
sum=rs("文章数")
response.write"<tr><td><ahref=qtopic.asp?topicid="&topicid&"&boardname="&boardname&">"&topicname&"</a></td>"
response.write"<td>"&sum&"</td></tr>"
rs.movenext
loopuntilrs.eof
%>
</table>
</body>
</html>
注:qBoard.asp列出了某个版面下的一切的主题,在点击了主落款称后就会进进响应的主题文章列表。这个列表的是由qTopic.asp这个ASP剧本来完成的。Qtopic.asp的程序代码在实质上几近和qBoard.asp没有区分,只是在各自的细节上有所区分,这儿也不盘算再多讲了。
(4)在点击了文章列表中的文章题目后,会进进文章内容扫瞄页article.asp:
<%
articleid=request("articleid")
Setconn=Server.CreateObject("ADODB.Connection")
conn.Open"driver={MicrosoftAccessDriver(*.mdb)};dbq="&Server.MapPath("bbssystem.mdb")
Setcmd=Server.CreateObject("ADODB.Command")
Setcmd.ActiveConnection=conn
cmd.CommandText="按id查询文章"
ReDimparam(0)声明
param(0)=CLng(articleid)Cint不成疏忽
Setrs=cmd.Execute(,param)
author=rs("作者id")
title=rs("题目")
data=rs("日期")
rate=rs("保举度")
boardid=rs("看板id")
topicid=rs("主题id")
boardname=rs("看板名")
topicname=rs("主落款")
content=rs("内容")
content=replace(content,vbCrlf,"</p><p>")
content="<p>"&content&"</p>"
注:这是一个要注重的中央,在内容字段中包括的是备忘范例的文本,个中能够包括换行字符。在HTML的显现中,必需要把换行字符(也就是vbCrlf常数)换成HTML的段落标记。如许在段落与段落的跟尾处,就不会打乱本来输出时的格局。假如要计划的更好些,能够经由过程CSS来复位义<P>标签,设定其test-indent属性,就能够完成每段开首空格了。
(5)把点击次数加一
sql="Update内容表Set点击次数=点击次数+1WhereID="&articleid
conn.executesql
注:这儿有一个SQL语句,没当页面被显现的时分,会把响应的表中点击次数字段加一,如许就可以够对文章扫瞄的次数做出统计,并可按按次排名。在实行条语句的时分,我发明:原本在SQL语句中,嵌进的变量名应当加上单引号以与区分,但在这儿的articleid变量上我并没有加单引号,竟然也可以经由过程,而我之前如许写历来都是会激发毛病的,不知是否是因为新版本的ADO的原因。
setcmd=nothing
%>
<html>
<head>
<title>UntitledDocument</title>
<metahttp-equiv="Content-Type"content="text/html;charset=GB2312">
</head>
<bodybgcolor="#E9E9E4">
<tablewidth="89%"border="0"cellspacing="0"cellpadding="0"align="center">
<trbgcolor="#CCCCCC">
<td><fontcolor="#FF3366"><ahref="qauthor.asp?author=<%=author%>"><%=author%></a></font>宣布日期:<fontcolor="#FF3333"><%=data%></font>
看板:<fontcolor="#FF3333"><ahref="qboard.asp?boardid=<%=boardid%>"><%=boardname%></a></font>板主保举:<fontcolor="#FF3333">#rate#</font></td>
</tr>
<trbgcolor="#CCCCCC">
<td>题目:<fontcolor="#FF3333"><%=title%>
主题:<ahref="qtopic.asp?topicid=<%=topicid%>"><%=topicname%></a></font></td>
</tr>
<trvalign="top">
<td>
<hr>
<fontcolor="#FF3366">文章内容:</font><br>
<br>
<fontcolor=blue><%response.writecontent%></font>
<br>
<br>
</td>
</tr>
<trvalign="top">
<tdheight="18">
<tablewidth="50%"border="0"cellspacing="0"cellpadding="0"align="right"bgcolor="#CCCCCC">
<tr>
<tdwidth="0%"></td>
<tdwidth="65%">关于此话题<ahref="submit.asp?topicid=<%=topicid%>&boardid=<%=boardid%>">宣布批评</a></td>
这个毗连同意网友对此批评的话题宣布本人的看法,这是下一个模块要讲的内容了,这儿且按下不表。
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
<%
setrs=nothing
conn.close
setconn=nothing
%>
到此,文章显现部分也完成了。上面再来看看文章宣布部分是怎样完成的。帮助用户快速实现各种应用服务,ASP商有整合各方面资源的能力,可在短期内为用户提供所需的解决方案。例如,典型的ERP安装,如果要在客户端安装的话需要半年到二年的时间,但是美国的一些ASP商如USI和CORIO能在90—120天内提供ERP应用方案。 |
|