www.gusucode.com > 全球营销软件站整站源码4月最新数据 4.0源码程序 > 801wyxqf\ask\inc\const.asp
<!--#include file="cls_askmain.asp"--> <!--#include file="customtag.asp"--> <% Dim TextMemory,Immediate If IsURLRewrite Then Immediate = False Else Immediate = True End If Set NewAsp = New AskingMain_Cls NewAsp.GetAsked_Setting NewAsp.CheckUserLogin Sub TextEcho(strEcho) If Immediate Then Response.Write (strEcho) Else TextMemory = TextMemory & strEcho End If End Sub Sub TextFlush() If IsURLRewrite Then HTML_URLRewrite End If Response.Write (TextMemory) TextMemory = Null End Sub Sub HTML_URLRewrite() Dim re Set re = new RegExp re.IgnoreCase = True re.Global = True re.Pattern = "\{\$InstallDir\}" TextMemory = re.Replace(TextMemory,NewAsp.InstallDir) re.Pattern = "<a(.[^>]*)showlist\.asp\?classid=(\d+)(&|&)topicmode=(\d+)(&|&)page=(\d+)" TextMemory = re.Replace(TextMemory,"<a$1showlist-$2-$4-$6") re.Pattern = "<a(.[^>]*)showlist\.asp\?classid=(\d+)(&|&)page=(\d+)" TextMemory = re.Replace(TextMemory,"<a$1showlistlist-$2-$4-1") re.Pattern = "<a(.[^>]*)showlist\.asp\?classid=(\d+)" TextMemory = re.Replace(TextMemory,"<a$1showlist-$2-0-1") re.Pattern = "<a(.[^>]*)question\.asp\?topicid=(\d+)(&|&)page=(\d+)" TextMemory = re.Replace(TextMemory,"<a$1question-$2-$4") re.Pattern = "<a(.[^>]*)question\.asp\?topicid=(\d+)" TextMemory = re.Replace(TextMemory,"<a$1question-$2-1") re.Pattern = "<a(.[^>]*)share\.asp\?topicid=(\d+)(&|&)page=(\d+)" TextMemory = re.Replace(TextMemory,"<a$1share-$2-$4") re.Pattern = "<a(.[^>]*)share\.asp\?topicid=(\d+)" TextMemory = re.Replace(TextMemory,"<a$1share-$2-1") re.Pattern = "<a(.[^>]*)topasking\.asp\?mode=(\d+)(&|&)page=(\d+)" TextMemory = re.Replace(TextMemory,"<a$1topasking-$2-$4") re.Pattern = "<a(.[^>]*)topasking\.asp\?mode=(\d+)" TextMemory = re.Replace(TextMemory,"<a$1topasking-$2-1") re.Pattern = "<a(.[^>]*)topasking\.asp" TextMemory = re.Replace(TextMemory,"<a$1topasking-0-1") re.Pattern = "<a(.[^>]*)topshare\.asp\?mode=(\d+)(&|&)page=(\d+)" TextMemory = re.Replace(TextMemory,"<a$1topshare-$2-$4") re.Pattern = "<a(.[^>]*)topshare\.asp\?mode=(\d+)" TextMemory = re.Replace(TextMemory,"<a$1topshare-$2-1") re.Pattern = "<a(.[^>]*)topshare\.asp" TextMemory = re.Replace(TextMemory,"<a$1topshare-0-1") re.Pattern = "<a(.[^>]*)usertopic\.asp\?userid=(\d+)(&|&)topicmode=(\d+)(&|&)page=(\d+)" TextMemory = re.Replace(TextMemory,"<a$1usertopic-$2-$4-$6") re.Pattern = "<a(.[^>]*)usertopic\.asp\?userid=(\d+)(&|&)topicmode=(\d+)" TextMemory = re.Replace(TextMemory,"<a$1usertopic-$2-$4-1") re.Pattern = "<a(.[^>]*)usertopic\.asp\?userid=(\d+)" TextMemory = re.Replace(TextMemory,"<a$1usertopic-$2-0-1") Set re=Nothing End Sub Function showlistpage(page, Pcount, strLink) Dim strTemp,i,n,m If strLink = "" Then strLink = "?" m = 8 If page = 0 Then page = 1 If page > 996 Then m = 6 If page = 1 Then strTemp = "<kbd class=""disable""><a href=""" & strLink & "page=1"">上一页</a></kbd>" strTemp = strTemp & "<code>" strTemp = strTemp & "<a href=""" & strLink & "page=1"" class=""active"">1</a> " Else strTemp = "<kbd><a href=""" & strLink & "page=" & page-1 & """>上一页</a></kbd>" strTemp = strTemp & "<code>" strTemp = strTemp & "<a href=""" & strLink & "page=1"">1</a> " End If If Pcount > m And page > (m\2) Then If Pcount-page <= (m\2) Then n = Pcount-(m+1) Else n = Page-(m\2) End If Else n = 2 End If If n > 2 And Pcount > 10 Then strTemp = strTemp & "<i>...</i> " End If If Pcount > 9 Then For i = n To n + m If i => Pcount Then Exit For If i > 1 Then If i = page Then strTemp = strTemp & "<a href=""" & strLink & "page=" & i & """ class=""active"">" & i & "</a> " Else strTemp = strTemp & "<a href=""" & strLink & "page=" & i & """>" & i & "</a> " End If End If Next Else For i = 2 To 10 If i > Pcount Then strTemp = strTemp & "<a href=""#"">" & i & "</a> " Else If i = page Then strTemp = strTemp & "<a href=""" & strLink & "page=" & i & """ class=""active"">" & i & "</a> " Else strTemp = strTemp & "<a href=""" & strLink & "page=" & i & """>" & i & "</a> " End If End If Next End If If Pcount > i Then strTemp = strTemp & "<i>...</i> " End If If page => Pcount Then If Pcount > 9 Then strTemp = strTemp & "<a href=""" & strLink & "page=" & Pcount & """ class=""active"">" & Pcount & "</a> " strTemp = strTemp & "</code>" strTemp = strTemp & "<dfn class=""disable""><a href=""" & strLink & "page=" & Pcount & """>下一页</a></dfn>" Else If Pcount > 9 Then strTemp = strTemp & "<a href=""" & strLink & "page=" & Pcount & """>" & Pcount & "</a> " strTemp = strTemp & "</code>" strTemp = strTemp & "<dfn><a href=""" & strLink & "page=" & page+1 & """>下一页</a></dfn>" End If showlistpage = strTemp End Function Sub UpdateUserData(userid) End Sub %> <script language="javascript" type="text/javascript" runat="server"> function EncodeURIComponent(str){ return encodeURIComponent(str); } function DecodeURIComponent(str){ return decodeURIComponent(str); } function EncodeUtf8(s1){ var s = escape(s1); var sa = s.split("%"); var retV =""; if(sa[0] != "") { retV = sa[0]; } for(var i = 1; i < sa.length; i ++) { if(sa[i].substring(0,1) == "u") { retV += Hex2Utf8(Str2Hex(sa[i].substring(1,5))) + sa[i].substring(5,sa[i].length); } else retV += "%" + sa[i]; } return retV; } function Str2Hex(s){ var c = ""; var n; var ss = "0123456789ABCDEF"; var digS = ""; for(var i = 0; i < s.length; i ++) { c = s.charAt(i); n = ss.indexOf(c); digS += Dec2Dig(eval(n)); } //return value; return digS; } function Dec2Dig(n1){ var s = ""; var n2 = 0; for(var i = 0; i < 4; i++) { n2 = Math.pow(2,3 - i); if(n1 >= n2) { s += '1'; n1 = n1 - n2; } else s += '0'; } return s; } function Dig2Dec(s){ var retV = 0; if(s.length == 4) { for(var i = 0; i < 4; i ++) { retV += eval(s.charAt(i)) * Math.pow(2, 3 - i); } return retV; } return -1; } function Hex2Utf8(s){ var retS = ""; var tempS = ""; var ss = ""; if(s.length == 16) { tempS = "1110" + s.substring(0, 4); tempS += "10" + s.substring(4, 10); tempS += "10" + s.substring(10,16); var sss = "0123456789ABCDEF"; for(var i = 0; i < 3; i ++) { retS += "%"; ss = tempS.substring(i * 8, (eval(i)+1)*8); retS += sss.charAt(Dig2Dec(ss.substring(0,4))); retS += sss.charAt(Dig2Dec(ss.substring(4,8))); } return retS; } return ""; } </script>