详细的要改那一段?
'留言调用
Public Function BookCode(f_Lablechar,f_type)
'BookCode┆类型$0┆栏目$┆数量$10┆列数$1┆字数$30┆标题CSS$┆日期CSS$┆日期格式$YY02-MM-DD┆DivID$┆Divclass$┆ulid$┆ulclass$┆liid$┆liclass$┆输入格式$out_Table
dim table_array,BookPop,ClassID,TitleNumber,ColsNumber,leftTitle,div_tf,TitleCSS,DateCSS,datestyle
dim classNews_head,classNews_middle1,classNews_bottom,classNews_middle2,user_str,tmp_hit
dim rs,f_sql,inSql_CMD,orderby,rec_tf
table_array=split(f_Lablechar,"┆")
BookPop = split(split(f_Lablechar,"┆")(1),"$")(1)
ClassID = split(split(f_Lablechar,"┆")(2),"$")(1)
TitleNumber = split(split(f_Lablechar,"┆")(3),"$")(1)
ColsNumber = split(split(f_Lablechar,"┆")(4),"$")(1)
leftTitle = split(split(f_Lablechar,"┆")(5),"$")(1)
if leftTitle<>"" then
leftTitle = cint(leftTitle)
else
leftTitle = 30
end if
DateStyle = split(split(f_Lablechar,"┆")(8),"$")(1)
if instr(f_Lablechar,"out_DIV")>0 then
div_tf=1
else
div_tf=0
TitleCSS=split(split(f_Lablechar,"┆")(6),"$")(1)
if TitleCSS="" then
TitleCSS = ""
else
TitleCSS = " class="""&TitleCSS&""""
end if
DateCSS=split(split(f_Lablechar,"┆")(7),"$")(1)
if DateCSS<>"" then
DateCSS = " class="""&DateCSS&""""
else
DateCSS = ""
end if
end if
if div_tf=1 then
classNews_head = table_str_list_head(div_tf,split(table_array(9),"$")(1),split(table_array(10),"$")(1),split(table_array(11),"$")(1),split(table_array(12),"$")(1))
classNews_middle1 = table_str_list_middle_1(div_tf,split(table_array(13),"$")(1),split(table_array(14),"$")(1))
end if
classNews_bottom = table_str_list_bottom(div_tf)
classNews_middle2 = table_str_list_middle_2(div_tf)
if ClassID<>"" then
inSql_CMD = " and ClassID='"& ClassId &"'"
else
inSql_CMD = ""
end if
if BookPop="0" then
orderby = " order by LastUpdateDate desc,id desc"
rec_tf=""
elseif BookPop="1" then
orderby = " order by LastUpdateDate desc,id desc"
rec_tf=" and IsTop='1'"
else
orderby = " order by hit desc,LastUpdateDate desc,id desc"
rec_tf=""
end if
f_sql = "select top "& TitleNumber &" ID,ClassId,Topic,Body,AddDate,Hit,State,[user] From FS_WS_BBS where State='0' and ParentID='0' and IsAdmin='0' "& inSql_CMD & rec_tf & orderby &""
set rs = Conn.execute(f_sql)
BookCode = ""
if rs.eof then
BookCode = "<a href=""/guestbook/index.asp"">更多留言</a>"
rs.close:set rs=nothing
else
do while not rs.eof
if BookPop="2" then
tmp_hit = "<font style=""font-size:10px;font-family:Arial;"" color=red>["&rs("Hit")&"]</font>"
end if
Dim ClassName_GB
ClassName_GB = Conn.ExeCute("Select ClassName From FS_WS_Class Where ClassID = '" & rs("ClassId") & "'")(0)
if div_tf = 1 then
if rs("user")<>"游客" and rs("user")<>"过客" then
user_str = "(<a href=""http://"&request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/"&G_USER_DIR&"/ShowUser.asp?UserName="&rs("User")&""" target=""_blank"">"& rs("User")&"</a>)"
else
user_str = "("&rs("User")&")"
end if
BookCode = BookCode & classNews_middle1 & "<a href=""http://"&request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/GuestBook/ShowNote.asp?NoteID="&rs("id")&"&ClassName=" & ClassName_GB & "&ClassID="&rs("ClassId")&""" target=""_blank"">"&GotTopic(""& rs("Topic"),leftTitle) &"</a>"& tmp_hit & user_str & Get_Date(rs("AddDate"),DateStyle) & "" & classNews_middle2
else
if rs("user")<>"游客" and rs("user")<>"过客" then
user_str = "(<a href=""http://"&request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/"&G_USER_DIR&"/ShowUser.asp?UserName="&rs("User")&""" target=""_blank"">"& rs("User")&"</a>)"
else
user_str = "("&rs("User")&")"
end if
BookCode = BookCode & "<img src=""http://"&request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/sys_images/book_tf.gif"" border=""0"" /><a href=""http://"&request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/GuestBook/ShowNote.asp?NoteID="&rs("id")&"&ClassName=" & ClassName_GB & "&ClassID="&rs("ClassId")&""" target=""_blank"""&TitleCSS&">"&GotTopic(""&rs("Topic"),leftTitle)&"</a>"& tmp_hit & user_str &"<span"& DateCSS &">"& Get_Date(rs("AddDate"),DateStyle)&"</span>"&"<br>"
end if
rs.movenext
loop
rs.close:set rs=nothing
end if
if div_tf=1 then
BookCode = classNews_head & BookCode & classNews_bottom
end if
BookCode = BookCode
End Function
