new.asp

教师评估系统

<!-- #include file="Cls.asp" -->
<%
if Request("menu")="IncTopic" then
 ForumID=ChkNumeric(Request("ForumID"))
 TopicCount=int(Request("TopicCount"))
 TitleLen=int(Request("TitleLen"))
 TimeLimit=int(Request("TimeLimit"))
 Sort=Server.HTMLEncode(Request("Sort"))
 if Sort=Empty then
 SqlSort="id"
 else
 SqlSort=Sort
 end if

 if TitleLen=Empty then
 SqlTitleLen=100
 else
 SqlTitleLen=TitleLen
 end if

 if TopicCount=Empty then
 SqlTopicCount=10
 else
 SqlTopicCount=TopicCount
 end if

 if ForumID<>Empty then SqlForumID=" and ForumID="&ForumID&""
 if TimeLimit<>Empty then SqlTimeLimit=" and PostTime>"&SqlNowString&"-"&TimeLimit&""
 if Len(SqlSort)>10 then Response.end
 if TopicCount>100 then TopicCount=100

 sql="select top "&SqlTopicCount&" * from [WxThreads] where IsDel=0 "&SqlForumID&" "&SqlTimeLimit&" order by "&SqlSort&" desc"
 Set Rs=Conn.Execute(sql)
 do while Not Rs.Eof
 Topic=Rs("Topic")
 if Request("Showtime")=1 then Showtime=" ["&Rs("PostTime")&"]"
 list=list&""&Request("icon")&" <a href="&Cache("SiteUrl")&"Threads.asp?Tid="&Rs("id")&" target=_blank>"&Left(Topic,SqlTitleLen)&"</a>"&Showtime&"<br />"
 Rs.MoveNext
 Loop
 Rs.close
 Response.write GetJsStr(list)
Else
 On Error Resume Next
 XMLDOM.load Server.MapPath(XmlPath&"CustomTransfer.xml")
 Set XMLRoot=XMLDOM.documentElement
 Set XMLNodeLists=XMLDOM.getElementsByTagName("Solution")
 Set objNode=XMLNodeLists(int(Request("id")))
 Code=objNode.text
 if Err Then
  Response.write GetJsStr("<b>调用代码错误</b>")
  CloseDataBase
 end if
 Code=GetJsStr(IncDecode(Code))
 Response.write Code
 Set XMLRoot=Nothing
 Set XMLNodeLists=Nothing
 Set objNode=Nothing
end if

'调用代码解码组件
function IncDecode(str)
 str=Replace(str,"$daysTopics",Cache("daysTopics"))
 str=Replace(str,"$daysPosts",Cache("daysPosts"))
 str=Replace(str,"$TotalTopics",Cache("TotalTopics"))
 str=Replace(str,"$TotalPosts",Cache("TotalPosts"))
 str=Replace(str,"$SiteName",Cache("SiteName"))
 str=Replace(str,"$SiteUrl",Cache("SiteUrl"))
 'str=Replace(str,"$",Cache(""))
 IncDecode=str
end function

function GetJsStr(Str)
if IsNull(Str) Then
Str = ""
Else
Str = Replace(Str,"'","\'")
Str = Replace(Str,chr(34),"\"&chr(34))
end if
GetJsStr = "document.write("&chr(34)&Str&chr(34)&");"
end function

CloseDataBase
%>