关于asp 的，请进。

来源：百度知道编辑：UC知道时间：2024/05/29 10:23:37

==================================================
'过程名：ShowAnnounce
'作用：显示本站公告信息
'参数：ShowType ------显示方式，1为纵向，2为横向
' AnnounceNum ----最多显示多少条公告
'==================================================
sub ShowAnnounce(ShowType,AnnounceNum)
dim sqlAnnounce,rsAnnounce,i
if AnnounceNum>0 and AnnounceNum<=10 then
sqlAnnounce="select top " & AnnounceNum
else
sqlAnnounce="select top 10"
end if
sqlAnnounce=sqlAnnounce & " * from Announce where IsSelected=True"
sqlAnnounce=sqlAnnounce & " and (ChannelID=0 or ChannelID=" & ChannelID & ")"
sqlAnnounce=sqlAnnounce & " and (ShowType=0 or ShowType=1) order by ID Desc"
Set rsAnnounce= Server.CreateObject("ADODB.Recordset")
rsAnnounce.open sqlAnnounce,conn,1,1
if rsAnnounce.bof and rsAnnounce.eof then
AnnounceCount=0
response.write

response.Write " <a href='#' onclick=""javascript:window.open('Announce.asp?ChannelID=" & ChannelID & "&ID=" & rsAnnounce("id") &"', 'newwindow', 'height=300, width=400, toolbar=no, menubar=no, scrollbars=auto, resizable=no, location=no, status=no')"" title='" & rsAnnounce("Content") & "'>" & rsAnnounce("title") & "</div><br><div align='right'>" & rsAnnounce("Author") & " <br>" & FormatDateTime(rsAnnounce("DateAndTime"),1) & "</a>"

改成
response.Write " <a href='#' onclick=""javascript:window.open('Announce.asp?ChannelID=" & ChannelID & "&ID=" & rsAnnounce("id") &"', 'newwindow', 'height=300, width=400, toolbar=no, menubar=no, scrollbars=auto, resizable=no, location=

关于asp 的，请进。关于ASP，懂的请进！！！！！！！！高手请进关于ASP的问题关于ASP.NET的问题,高手请进! 关于ASP问题 user830316 请进 ASP高手请进,关于序号请问下大家，关于ASP的！！会的请进！！~` 熟悉ASP JS的请进,关于JS程序问题关于动态网页(asp)的问题?高手请进! 求救!!!关于动态网页(asp)的问题?高手请进!