www.gusucode.com > 全球营销软件站整站源码4月最新数据 4.0源码程序 > 801wyxqf\adminadmin\asked\const.asp
<!--#include file="../../conn.asp"--> <!--#include file="../inc/setup.asp"--> <!--#include file="../inc/const.asp"--> <!--#include file="../inc/check.asp"--> <!--#include file="../../inc/md5.asp"--> <% Dim Asked_Setting,Point_Setting,Posts_Setting,NowUseTable Dim AllPostTable Dim AllPostTableName Dim AskInstalDir If CLng(NewAsp.BindDomain) = 0 Then AskInstalDir = Trim(NewAsp.InstallDir & NewAsp.ChannelDir) Else AskInstalDir = Trim(NewAsp.DomainName & "/") End If If ChannelID=0 Then ChannelID=4 If Not ChkAdmin("Asked") Then Call Transfer_error() End If If Not IsObject(Ask_Conn) Then Ask_ConnectionDatabase Sub DelAskedCahe(cName) Dim m_strAskedPath Dim cRs,iAskedKey If CLng(NewAsp.BindDomain) = 0 Then m_strAskedPath = Trim(NewAsp.InstallDir & NewAsp.ChannelDir) Else m_strAskedPath = Trim(NewAsp.DomainName & "/") End If Set cRs = NewAsp.Ask_Execute("SELECT id,AskedKey FROM [NC_Ask_Setup]") If Not (cRs.BOF And cRs.EOF) Then iAskedKey = md5(cRs("AskedKey"),16) Response.Write "<script language=""javascript"" src=""" & m_strAskedPath & "script/delcache.asp?key=" & iAskedKey & "&name=" & cName & """></script>" End If Set cRs = Nothing End Sub '--生成随机数函数 Function GetRandomCode(l) Randomize Dim m_strRandArray,m_intRandlen,m_strRandomize,i m_strRandArray = Array(0,1,2,3,4,5,6,7,8,9,"A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z") m_intRandlen = l '定义随机码的长度 If m_intRandlen < 5 Then m_intRandlen = 16 for i = 1 to m_intRandlen m_strRandomize = m_strRandomize & m_strRandArray(Int((21*Rnd))) next GetRandomCode = m_strRandomize End Function Sub AllPostTable1() Dim Trs Set Trs=NewAsp.Ask_Execute("SELECT * FROM [NC_Ask_TableList]") AllPostTable="" Do While Not TRs.EOF If AllPostTable="" Then AllPostTable=TRs("TableName") AllPostTableName=TRs("TableType") Else AllPostTable=AllPostTable&"|"&TRs("TableName") AllPostTableName=AllPostTableName&"|"&TRs("TableType") End If TRs.MoveNext Loop Trs.Close End Sub Sub LoadAskSetup() Dim Rs,DataArry Set Rs=NewAsp.Ask_Execute("SELECT id,InstallDir,Asked_Setting,Point_Setting,Posts_Setting,NowUseTable FROM [NC_Ask_Setup]") DataArry=Rs.GetRows(1) Set Rs=Nothing If IsArray(DataArry) Then Asked_Setting = Split(DataArry(2,0),"|||") Point_Setting = Split(DataArry(3,0),"|||") Posts_Setting = Split(DataArry(4,0),"|||") NowUseTable = Trim(DataArry(5,0)) End If DataArry=Null End Sub Call AllPostTable1() AllPostTableName=Split(AllPostTableName,"|") AllPostTable=Split(AllPostTable,"|") %> <script Language="JScript" runat="server"> //************************************* //检测系统组件是否安装 //************************************* function CheckObjInstalled(strClassString){ try{ var TmpObj = Server.CreateObject(strClassString); return true }catch(e){ return false } } </script>