一个兼职asp程序员的测试题

  1<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
  2<%
  3Dim conn, connstr, db
  4
  5db = "abc.mdb" 
  6    connstr="Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:DataBase Password=51888888;Data Source=" & Server.MapPath("" & db & "")
  7Set conn=Server.Createobject("ADODB.CONNECTION")
  8     conn.Open connstr
  9
 10%>
 11<%
 12'--
 13'调用方法:
 14'<script src="get.asp?n=调用的条数&tlen=22&name=类别名称&isshow=1"><'/script>
 15
 16'说明：
 17'需制作调用文章评论的一个页面get.asp，页面中获取参数，并写一个函数，函数通过获取的参数，以js形式输出内容，输出内容样式见“显示样式”。
 18
 19'表名：pinglun
 20'字段名：id(自动编号),title(标题),name(类别名称),newsid(文章id),adddate(添加时间)
 21
 22'参数说明：
 23'n 调用的条数，默认为10。为空或0则为10条。
 24'tlen 标题显示长度，默认为22个字符。为空或0则为22个字符。
 25'name 类别名称
 26'newsid 文章ID号，可以调用多个，各个之间使用"|"隔开，比如：newsid=1170|1117|2004 
 27'isshow 是否显示添加时间，1为显示。
 28
 29'显示样式：
 30'.标题（添加时间）
 31'.标题（添加时间）
 32'.标题（添加时间）
 33'.标题（添加时间）
 34'.标题（添加时间）
 35'.标题（添加时间）
 36'.标题（添加时间）
 37'.标题（添加时间）
 38'.标题（添加时间）
 39'.标题（添加时间）
 40%>
 41<%
 42Function GetLeng(str,length)
 43    IF IsNull(str) or IsEmpty(str) Then 
 44        GetLeng = str
 45    Else
 46        GetLeng = Left(str,length)
 47    End IF
 48End Function
 49Dim rs,rCmd,strSql,pageSize,tLen,tName,newsID,isShow,outHtml:pageSize=10:tLen=22:isShow = Request.QueryString("isshow")
 50
 51IF IsNumeric(Request.QueryString("n")) Then
 52    pageSize = Cint(Request.QueryString("n"))
 53    IF pageSize < 1 Then pageSize = 10
 54End IF
 55
 56    tName = Request.QueryString("name")
 57IF IsNull(tName) or IsEmpty(tName) Then
 58    tName = ""
 59End IF
 60
 61    newsID = Request.QueryString("newsid")
 62IF (Not IsNull(newsID) And Not IsEmpty(newsID)) Then
 63    newsID = Replace(Replace(Replace(newsID,"'","")," ",""),"|",",")
 64End IF
 65
 66IF IsNumeric(Request.QueryString("tlen")) Then
 67    tLen = Cint(Request.QueryString("tlen"))
 68    IF tLen<1 Then tLen = 22
 69End IF
 70'假设数据连接已经做好为conn
 71Set rCmd = Server.CreateObject("ADODB.Command")
 72    rCmd.ActiveConnection = conn 
 73    rCmd.CommandType = 1
 74    rCmd.Prepared = true
 75    rCmd.Parameters.Append(rCmd.CreateParameter("@tName",200,1,100,tName))
 76    
 77    strSql = "select Top " & pageSize & " [id],[title],[adddate] from [pinglun] where name=@tName "
 78
 79IF Not(IsNull(newsID) or IsEmpty(newsID)) Then
 80    strSql = strSql & " and newsid in(" & newsID & ")"
 81End IF 
 82Response.Write(strSql)
 83    rCmd.CommandText = strSql
 84Set rs = rCmd.Execute()
 85Dim i:i=0
 86While(Not rs.EOF And i < pageSize)
 87    outHtml = outHtml & "<li>" & GetLeng(rs("title"),tLen)
 88    IF isShow = "1" Then
 89        outHtml = outHtml & "(" & rs("adddate") & ")"
 90    End IF
 91    outHtml = outHtml & "</li>"
 92    i=i+1
 93    rs.MoveNext
 94Wend
 95with Response
 96    .Write("var outHtml = ""<ul>"";")
 97    .Write("outHtml +=""" & Replace(outHtml,"""","\""") & """;")
 98    .Write("outHtml += ""</ul>"";")
 99    .Write("document.write(outHtml);")
100End With
101%>