|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
因为现在数据库都使用标准的SQL语言对数据库进行管理,所以如果是标准SQL语言,两者基本上都可以通用的。SQLServer还有更多的扩展,可以用存储过程,数据库大小无极限限制。排序|显现程序:disprec.asp
功效:显现贴子详细内容
<!--#includefile="lybcon.inc"-->
<%
keyid=request("keyid")
rootid=request("rootid")
pageno=request("pageno")
ifrootid=0thenrootid=keyid
setguestconn=Server.CreateObject("ADODB.connection")
guestconn.Openlybstr
setguestrs=server.createobject("ADODB.recordset")
sqlstr="SELECT*FROMguestbookwherelybid="&rootid&"orrootid="&rootid
sqlstr=sqlstr&"orderbyorderstr,lybiddesc"
guestrs.opensqlstr,guestconn,1,1
%>
<html>
<head><title>软件利用留言薄</title>
<styleTYPE="text/CSS">
<!--
a{text-decoration:none}
body{line-height:18px;font-size:9pt;font-family:宋体}
a:hover{color:#FF0000;text-decoration:none}
td{font-family:宋体;font-size:9pt;background-color:ECF7FF}
.td1{font-family:宋体;font-size:9pt;background-color:A2C8F2}
.td2{font-family:宋体;font-size:9pt;background-color:E9EDE0}
.small1{font-family:宋体;font-size:9pt;background-color:ffffff;line-height:9pt}
-->
</style>
</head>
<bodytopmargin=16background=topbg.gif>
<formname=indexmethod=POSTaction=index.asp>
<tablewidth=100%align=center>
<tr>
<tdalign=centerstyle=font-size:16px;background-color:ffffff;color:redheight=35valign=top>软件利用留言薄</td>
<tdalign=centercolspan=2style=background-color:ffffffvalign=bottom>相干留言共<fontstyle=font-size:16px;color:red><%=guestrs.recordcount%></font>条</td>
<tdstyle=background-color:ffffffvalign=bottomalign=center><ahref=index.asp?pageno=<%=pageno%>>留言列表</a></td>
<tdstyle=background-color:ffffffvalign=bottomalign=center><ahref=revert.asp?type=post>发贴子</a></td>
</tr>
<trstyle="color:red">
<tdalign=centerclass=td1width=70%>留言题目</td>
<tdalign=centerwidth=70class=td1nowrap><imgsrc=http://www.163design.net/a/q/edit.gif>作者</td>
<tdalign=centerwidth=100class=td1nowrap>宣布工夫</td>
<tdalign=centerwidth=60class=td1nowrap>贴子字数</td>
<tdalign=centerwidth=60class=td1nowrap>贴子序号</td>
</tr>
<%dowhilenotguestrs.eof%>
<tr>
<td><%ifguestrs("rootid")0thenresponse.write(replace(space(len(guestrs("orderstr"))),"",""))%><%ifguestrs("lybid")+1=keyid+1then
ifguestrs("rootid")=0then
rootid=guestrs("lybid")
else
rootid=guestrs("rootid")
endif
lybid=guestrs("lybid")
guestitle=guestrs("guestitle")
guestname=guestrs("guestname")
guestemail=guestrs("guestemail")
guestcomm=guestrs("guestcomm")
putdate=guestrs("putdate")
puttime=guestrs("puttime")
emailflag=guestrs("emailflag")
%><%=guestrs("guestitle")%><%else%><ahref=disprec.asp?keyid=<%=guestrs("lybid")%>&rootid=<%=guestrs("rootid")%>&pageno=<%=pageno%>><%=guestrs("guestitle")%></a><%endif%></td>
<tdalign=rightnowrap><%=guestrs("guestname")%></td>
<tdnowrapalign=centernowrap><%=guestrs("putdate")&""&guestrs("puttime")%></td>
<tdalign=rightnowrap><%=len(guestrs("guestcomm"))%></td>
<tdalign=rightnowrap><%=guestrs("lybid")%></td>
</tr>
<%
guestrs.movenext
loop
guestrs.close
setguestrs=nothing
guestconn.close
setguestconn=nothing
%>
</p>缺乏可以共同遵循的行业标准,ASP还处在发展初期,大家对它的理解不同,如产品和服务标准,收费标准等,不利于行业的健康发展。 |
|