<% '************************************************************** ' Software name: PowerEasy SiteWeaver ' Web: http://www.powereasy.net ' Copyright (C) 2005-2008 佛山市动易网络科技有限公司 版权所有 '************************************************************** PageTitle = "作者信息" Dim strList, aValue,PriClassID, ClassField(5) Dim AuthorName Dim rsAuthor, sqlAuthor Dim TimeData ChannelID = PE_CLng(Trim(Request("ChannelID"))) AuthorName = Trim(Request("AuthorName")) If AuthorName = "" Then Call WriteErrMsg("
  • 请指定要查看的作者姓名!
  • ", ComeUrl) Response.End End If AuthorName = ReplaceBadChar(AuthorName) strFileName = "ShowAuthor.asp?AuthorName=" & AuthorName strFileName = strFileName & "&ChannelID=" & ChannelID TimeData = Trim(Request("Data")) If TimeData = "" Or Not (IsDate(TimeData)) Then TimeData = 0 Else TimeData = FormatDateTime(TimeData, 2) strFileName = strFileName & "&Data=" & TimeData End If MaxPerPage = 20 strNavPath = strNavPath & strNavLink & " " & PageTitle '取频道参数 Call GetChannel(ChannelID) sqlAuthor = "select * from PE_Author where AuthorName='" & AuthorName & "' and (ChannelID=0 or ChannelID=" & ChannelID & ") and Passed=" & PE_True Set rsAuthor = Server.CreateObject("ADODB.Recordset") rsAuthor.Open sqlAuthor, Conn, 1, 1 If rsAuthor.BOF And rsAuthor.EOF Then rsAuthor.Close Set rsAuthor = Nothing Call WriteErrMsg("
  • 找不到指定的作者!
  • ", ComeUrl) Response.End End If Dim iArrTemp If rsAuthor("TemplateID") < 1 Then strHtml = GetTemplate(0, 10, 0) Else strHtml = GetTemplate(0, 10, rsAuthor("TemplateID")) End If strHtml = Replace(strHtml, "{$AuthorID}", rsAuthor("ID")) strHtml = Replace(strHtml, "{$AuthorName}", AuthorName) strHtml = Replace(strHtml, "{$ChannelID}", ChannelID) Call ReplaceCommonLabel strHtml = Replace(strHtml, "{$PageTitle}", SiteTitle & " >> " & PageTitle) strHtml = Replace(strHtml, "{$ShowPath}", strNavPath) strHtml = Replace(strHtml, "{$MenuJS}", GetMenuJS("", False)) strHtml = Replace(strHtml, "{$Skin_CSS}", GetSkin_CSS(0)) If ChannelID > 0 Then strHtml = Replace(strHtml, "{$Rss}", "") strHtml = Replace(strHtml, "{$ShowList}", "AuthorList.asp?ChannelID=" & ChannelID) Else strHtml = Replace(strHtml, "{$Rss}", "") strHtml = Replace(strHtml, "{$ShowList}", "AuthorList.asp") End If regEx.Pattern = "\{\$AuthorPhoto\((.*?)\)\}" Set Matches = regEx.Execute(strHtml) For Each Match In Matches aValue = Replace(Match.SubMatches(0), Chr(34), " ") iArrTemp = Split(aValue, ",") If UBound(iArrTemp) < 1 Then strHtml = "函数式标签:{$AuthorPhoto()}的参数个数不对。请检查模板中的此标签。" Else If rsAuthor("Photo") = "" Or IsNull(rsAuthor("Photo")) Then strHtml = Replace(strHtml, Match.value, "") Else strHtml = Replace(strHtml, Match.value, "") End If End If Next If rsAuthor("Sex") = 1 Then strHtml = Replace(strHtml, "{$AuthorSex}", strMan) Else strHtml = Replace(strHtml, "{$AuthorSex}", strGirl) End If strHtml = Replace(strHtml, "{$AuthorAddTime}", Year(rsAuthor("LastUseTime")) & strYear & Month(rsAuthor("LastUseTime")) & strMonth & Day(rsAuthor("LastUseTime")) & strDay) strHtml = Replace(strHtml, "{$AuthorBirthDay}", Year(rsAuthor("BirthDay")) & strYear & Month(rsAuthor("BirthDay")) & strMonth & Day(rsAuthor("BirthDay")) & strDay) strHtml = Replace(strHtml, "{$AuthorCompany}", ReplaceSpace(rsAuthor("Company"))) strHtml = Replace(strHtml, "{$AuthorDepartment}", ReplaceSpace(rsAuthor("Department"))) strHtml = Replace(strHtml, "{$AuthorAddress}", ReplaceSpace(rsAuthor("Address"))) strHtml = Replace(strHtml, "{$AuthorTel}", ReplaceSpace(rsAuthor("Tel"))) strHtml = Replace(strHtml, "{$AuthorFax}", ReplaceSpace(rsAuthor("Fax"))) strHtml = Replace(strHtml, "{$AuthorZipCode}", ReplaceSpace(rsAuthor("ZipCode"))) strHtml = Replace(strHtml, "{$AuthorHomePage}", ReplaceSpace(rsAuthor("HomePage"))) strHtml = Replace(strHtml, "{$AuthorEmail}", ReplaceSpace(rsAuthor("Email"))) strHtml = Replace(strHtml, "{$AuthorQQ}", ReplaceSpace(rsAuthor("QQ"))) If rsAuthor("AuthorType") = 1 Then strHtml = Replace(strHtml, "{$AuthorType}", XmlText("ShowSource", "ShowAuthor/AuthorType1", "大陆作者")) ElseIf rsAuthor("AuthorType") = 2 Then strHtml = Replace(strHtml, "{$AuthorType}", XmlText("ShowSource", "ShowAuthor/AuthorType2", "港台作者")) ElseIf rsAuthor("AuthorType") = 3 Then strHtml = Replace(strHtml, "{$AuthorType}", XmlText("ShowSource", "ShowAuthor/AuthorType3", "海外作者")) ElseIf rsAuthor("AuthorType") = 4 Then strHtml = Replace(strHtml, "{$AuthorType}", XmlText("ShowSource", "ShowAuthor/AuthorType4", "本站特约")) Else strHtml = Replace(strHtml, "{$AuthorType}", XmlText("ShowSource", "ShowAuthor/AuthorType5", "其他作者")) End If strHtml = PE_Replace(strHtml, "{$AuthorIntro}", rsAuthor("Intro")) regEx.Pattern = "\{\$AuthorArticleList\((.*?)\)\}" Set Matches = regEx.Execute(strHtml) For Each Match In Matches aValue = Replace(Replace(Replace(Match.SubMatches(0), Chr(34), ""), "{$AuthorArticleList(", ""), ")}", "") strList = ShowArticleList(AuthorName & "," & ChannelID & "," & ModuleName & "," & ChannelDir & "," & UploadDir & "," & aValue, 1) strHtml = Replace(strHtml, Match.value, strList) Next If InStr(strHtml, "{$ShowPage}") > 0 Then strHtml = Replace(strHtml, "{$ShowPage}", ShowPage(strFileName, totalPut, MaxPerPage, CurrentPage, True, True, ChannelItemUnit & ChannelShortName, False)) If InStr(strHtml, "{$ShowPage_en}") > 0 Then strHtml = Replace(strHtml, "{$ShowPage_en}", ShowPage_en(strFileName, totalPut, MaxPerPage, CurrentPage, True, True, ChannelItemUnit & ChannelShortName, False)) rsAuthor.Close Set rsAuthor = Nothing Response.Write strHtml Call CloseConn %>