template.asp

用ASP设计的一个网上问卷系统,用于网上调查问卷系统的实现

Case 4
orderway="Survey_usehits"
End Select
Survey_List="<table width=""100%"" align=""center"" cellpadding=""0"" cellspacing=""0"" id=""SurveyAdmin"" class=""table"">"
dim  sql,page_size,rscount,item_count,page_num,page_now,i
page_size=num
set rscount=conn.execute("select count(*) as item_count from [Survey] where Survey_isOpen=true and Survey_isAuditing=true and datediff(""d"",now(),Survey_dateOver)>0")
	item_count=rscount("item_count")
	rscount.close
    page_num=item_count\page_size
if 	cint(kind)=2 then
sql="select * from [Survey] where Survey_isOpen=true and Survey_isAuditing=true order by "& orderway &" desc"
else
sql="select * from [Survey] where Survey_isOpen=true and Survey_isAuditing=true and datediff(""d"",now(),Survey_dateOver)>0 order by "& orderway &" desc"
end if
rs.open sql,conn,1,3
if not rs.eof then
	rs.pagesize=page_size
	page_now=1
	if trim(request.QueryString("page"))<>"" then
	page_now=cint(trim(request.QueryString("page")))
	end if
	if page_now>rs.pagecount or page_now<0 then
	page_now=1
	end if
	rs.absolutepage=page_now
Survey_List=Survey_List&"<tr>"
Survey_List=Survey_List&"<td>问卷名称</td>"
Survey_List=Survey_List&"<td>问卷发起者</td>"
Survey_List=Survey_List&"<td>问卷创建日期</td>"
Survey_List=Survey_List&"<td>问卷结束日期</td>"
Survey_List=Survey_List&"<td>浏览数</td>"
Survey_List=Survey_List&"</tr>"
  i=1
  while not rs.eof and i<page_size+1
Survey_List=Survey_List&"<tr>"
Survey_List=Survey_List&"<td align=""left"" style=""text-align:left""><a href=""Survey_Show.asp?Survey_id="&rs("Survey_id")&""">"&rs("Survey_name")&"</a></td>"
Survey_List=Survey_List&"<td>"&rs("Survey_author")&"</td>"
Survey_List=Survey_List&"<td>"&rs("Survey_creatDate")&"</td>"
Survey_List=Survey_List&"<td>"&rs("Survey_dateOver")&"</td>"
Survey_List=Survey_List&"<td>"&rs("Survey_hits")&"</td>"
Survey_List=Survey_List&"</tr>"
   rs.movenext
   i=i+1
   wend
Survey_List=Survey_List&"<tr>"
Survey_List=Survey_List&"<td colspan=""5"" align=""right"">"
Survey_List=Survey_List&"<div id=""bottom_pagebox"" style=""padding-right:25px; text-align:right;"">"
Survey_List=Survey_List&pageBox("Survey_list.asp?","个问卷",item_count,page_now,rs.pagecount)
Survey_List=Survey_List&"</div>"
  
Survey_List=Survey_List&"  </td>"
Survey_List=Survey_List&"</tr>"
else
Survey_List=Survey_List&"<tr>"
Survey_List=Survey_List&"<td colspan=""5"">暂时没有问卷!</a></td>"
Survey_List=Survey_List&"</tr>"
end if
rs.close
Survey_List=Survey_List&"</table>"
End Function


'----------------------------------------------------------
'留言显示页
'num：分页每个页多少条记录
'exp：Guest_Book_List(10)
'----------------------------------------------------------
Function Guest_Book_List(num,page_now)
page_size=cint(num)
set rscount=conn.execute("select count(*) as item_count from [GuestBook]")
	item_count=rscount("item_count")
	rscount.close
    page_num=item_count\page_size 
sql="select * from [GuestBook] order by GB_date desc"
rs.open sql,conn,1,3
if not rs.eof then
	rs.pagesize=page_size
	if cint(page_now)>rs.pagecount or cint(page_now)<0 then
	page_now=1
	end if
	rs.absolutepage=cint(page_now)
	i=1
	while not rs.eof and i<page_size+1
Guest_Book_List=Guest_Book_List&"<table width=""758"" cellpadding=""0"" cellspacing=""0"" id=""guestBook"">"
Guest_Book_List=Guest_Book_List&"<tr>"
Guest_Book_List=Guest_Book_List&"<td width=""13%"" rowspan=""2"" valign=""top"" class=""touXiang""><img src=""Images/nobody.gif"" vspace=""0"" align=""bottom"" />"
Guest_Book_List=Guest_Book_List&"<div class=""name"">"&rs("GB_user")&"</div>"
Guest_Book_List=Guest_Book_List&"</td>"
Guest_Book_List=Guest_Book_List&"<td width=""87%"" height=""50"" class=""guestBookContetn"">"&rs("GB_content")&"</td>"
Guest_Book_List=Guest_Book_List&"</tr>"
Guest_Book_List=Guest_Book_List&"<tr>"
Guest_Book_List=Guest_Book_List&" <td height=""20"" class=""info"">时间："&rs("GB_date")&"&nbsp;&nbsp;"
    if not rs("GB_email")="" then
    Guest_Book_List=Guest_Book_List& "<a href=""mailto:"&rs("GB_email")&"""><img src=""Images/email.gif""/></a>&nbsp;&nbsp;"
    end if
    if not rs("GB_qq")="" then 
    Guest_Book_List=Guest_Book_List& "<a href=""tencent://message/?uin="&rs("GB_qq")&"&Site="&siteName&"&Menu=yes""><img src=""Images/qq.gif""/></a>"
    end if
Guest_Book_List=Guest_Book_List&"  </td>"
Guest_Book_List=Guest_Book_List&"</tr>"
Guest_Book_List=Guest_Book_List&"</table>"
	i=i+1
	rs.movenext
	wend
else
Guest_Book_List=Guest_Book_List&"<table width=""758"" align=""center"" cellpadding=""0"" cellspacing=""0"" id=""guestBook"" class=""table"">"
Guest_Book_List=Guest_Book_List&"<tr>"
Guest_Book_List=Guest_Book_List&"<td>暂时没有留言，请添加</a></td>"
Guest_Book_List=Guest_Book_List&"</tr>"
Guest_Book_List=Guest_Book_List&"</table>"
end if
Guest_Book_List=Guest_Book_List&"<table width=""758"" align=""center"" cellpadding=""0"" cellspacing=""0"" id=""guestBook"" class=""table"">"
Guest_Book_List=Guest_Book_List&"<tr>"
Guest_Book_List=Guest_Book_List&"<td align=""right"">"
Guest_Book_List=Guest_Book_List&"<div id=""bottom_pagebox"" style=""padding-right:25px; text-align:right;"">"
Guest_Book_List=Guest_Book_List&pageBox("Guest_Book.asp?","条留言",item_count,page_now,rs.pagecount)
Guest_Book_List=Guest_Book_List&"</div>"
Guest_Book_List=Guest_Book_List&"</td>"
Guest_Book_List=Guest_Book_List&"</tr>"
Guest_Book_List=Guest_Book_List&"</table>"
rs.close
End Function

'----------------------------------------------------------
'友情链接列表
'num：分页每个页多少条记录
'orderby:排序方式
'exp：Guest_Book_List(10)
'----------------------------------------------------------
Function Friend_List(num,orderby)
Select Case orderby
Case 1 
orderway="Link_id"
Case 2
orderway="Link_addtime"
End Select
Friend_List=Friend_List&"<table cellSpacing=0 cellPadding=0 width=740 border=0>"
Friend_List=Friend_List&"<tbody>"
Friend_List=Friend_List&"<tr>"
Friend_List=Friend_List&"<td width=""123"">序号</td>"
Friend_List=Friend_List&"<td width=""150"">链接名称</td>"
Friend_List=Friend_List&"<td width=""149"">链接地址</td>"
Friend_List=Friend_List&"<td width=""220"">LOGO</td>"
Friend_List=Friend_List&"<td width=""110"">链接备注</td>"
Friend_List=Friend_List&"</tr>"
    dim page_size,rscount,item_count,page_num,page_now,i
    page_size=10
    set rscount=conn.execute("select count(*) as item_count from [FriendLink]")
        item_count=rscount("item_count")
        rscount.close
        page_num=item_count\page_size 
    sql="select * from [FriendLink] order by Link_id desc"
    rs.open sql,conn,1,3
    if not rs.eof then
		rs.pagesize=page_size
        page_now=1
        if trim(request.QueryString("page"))<>"" then
        page_now=cint(trim(request.QueryString("page")))
        end if
        if page_now>rs.pagecount or page_now<0 then
        page_now=1
        end if
        rs.absolutepage=page_now
        i=1
        while not rs.eof and i<page_size+1
Friend_List=Friend_List&"<tr>"
Friend_List=Friend_List&"<td>"&i&"</td>"
Friend_List=Friend_List&"<td class=""tdLeft""><a href="""&rs("Link_url")&""" target=""_blank"">"&rs("Link_name")&"</a></td>"
Friend_List=Friend_List&"<td class=""tdLeft""><a href="""&rs("Link_url")&""" target=""_blank"">"&rs("Link_url")&"</a></td>"
Friend_List=Friend_List&"<td><img src="""&rs("Link_imgurl")&""" height=""31"" width=""88""/></td>"
Friend_List=Friend_List&"<td>"&rs("Link_info")&"</td>"
Friend_List=Friend_List&"</tr>"
		rs.movenext
		i=i+1
		wend
Friend_List=Friend_List&"<tr>"
Friend_List=Friend_List&"<td colspan=""5"" align=""right"" height=""30px"">"
Friend_List=Friend_List&"<div id=""bottom_pagebox"" style=""padding-right:50px; text-align:right"">"
Friend_List=Friend_List&pageBox("Friend_List.asp?","个友情链接",item_count,page_now,rs.pagecount)
Friend_List=Friend_List&"</div>"
Friend_List=Friend_List&"</td>"
Friend_List=Friend_List&"</tr>"
    else
Friend_List=Friend_List&"<tr>"
Friend_List=Friend_List&"<td colspan=""5"">暂时没有友情链接，请<a href=""FriendLinkAdd.asp"">添加</a></td>"
Friend_List=Friend_List&"</tr>"
    end if
    rs.close
Friend_List=Friend_List&"</tbody>"
Friend_List=Friend_List&"</table>"
End Function
%>