guest_book.asp

东旭网络问卷调查系统 v2.4 很好用的大家试试看

<!--#include file="Include/Config2.asp"-->
<!--#include file="Template.asp"-->
<%
'----------------------------------------------------------
'页面功能：用户留言页。
'最后修改时间：2007-11-23 21时26分
'作者：legal http://www.ilegal.cn
'备注：
'----------------------------------------------------------
sql="select * from [Templet] where Templet_default=true and Templet_column=5"
rs.open sql,conn,1,1
Templet_content=rs("Templet_content")
rs.close
while cint(InStr(Templet_content,"{$Templet("))>0
	Templet_str=mid(Templet_content,cint(InStr(Templet_content,"{$Templet("))+2,cint(InStr(Templet_content,")Templet$}"))-cint(InStr(Templet_content,"{$Templet("))-2)    
	Templet_content=replace(Templet_content,"{$"&Templet_str&")Templet$}",Templet_change(replace(Templet_str,"Templet(","")))
wend
Templet_content=replace(Templet_content,"{$keywords$}",keywords)
Templet_content=replace(Templet_content,"{$descrip$}",descrip)
Templet_content=replace(Templet_content,"{$siteName$}",siteName)
while cint(InStr(Templet_content,"{$"))>0
Templet_content_func_all=mid(Templet_content,instr(Templet_content,"{$")+2,instr(Templet_content,"$}")-instr(Templet_content,"{$")-2)
Templet_content_func=split(Templet_content_func_all,"(")
Templet_content_func(1)=replace(Templet_content_func(1),")","")
Templet_content_para=split(Templet_content_func(1),",")
Select Case Templet_content_func(0)
	Case "FlashRing"
	    Templet_content=replace(Templet_content,"{$"&Templet_content_func_all&"$}",FlashRing(Templet_content_para(0),Templet_content_para(1),Templet_content_para(2),Templet_content_para(3)))
Case "Get_Survey_Paihang"
	    Templet_content=replace(Templet_content,"{$"&Templet_content_func_all&"$}",Get_Survey_Paihang(Templet_content_para(0),Templet_content_para(1),Templet_content_para(2),Templet_content_para(3)))
	Case "FriendLink"	
	    Templet_content=replace(Templet_content,"{$"&Templet_content_func_all&"$}",FriendLink(Templet_content_para(0),Templet_content_para(1),Templet_content_para(2),Templet_content_para(3),Templet_content_para(4)))
	Case "New_Survey_List"
	    Templet_content=replace(Templet_content,"{$"&Templet_content_func_all&"$}",New_Survey_List(Templet_content_para(0),Templet_content_para(1),Templet_content_para(2),Templet_content_para(3)))
	Case "Guest_Book_List"
		if trim(request.QueryString("page"))<>"" then
		page_now=cint(trim(request.QueryString("page")))
		else
		page_now=1
		end if
		'call debug(page_now)
        Templet_content=replace(Templet_content,"{$"&Templet_content_func_all&"$}",Guest_Book_List(Templet_content_para(0),page_now))
	Case else
		Templet_content=replace(Templet_content,"{$"&Templet_content_func_all&"$}","")
End Select

wend
I1 Templet_content
%>