📄 function.asp
字号:
Case "9"
strDateTime = y & "-" & m
Case "10"
strDateTime = y & "/" & m
Case "11"
strDateTime = y & "-" & m & "-" & d
Case "12"
strDateTime = y & "/" & m & "/" & d
Case "13"
strDateTime = yy & "." & m & "." & d
Case "14"
strDateTime = yy & "-" & m & "-" & d
Case Else
strDateTime = DateAndTime
End Select
FormatDate = strDateTime
End Function
function WriteMsg(Message)
response.write "<script language='JavaScript'>alert('"&Message&"');" & "history.back()" & "</script>"
end function
public AdminSiteUrl,AdminTelephone,AdminFax,AdminEmail,AdminKeywords,AdminDescriptions,AdminVideo,AdminIcpNumber,AdminMesViewFlag
public AdminSiteTitleCh,AdminSiteTitleEn,AdminComNameCh,AdminComNameEn,AAdminddressCh,AdminAddressEn
sub AdminSiteInfo()
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select top 1 * from LiangJingCMS_Site"
rs.open sql,conn,1,1
AdminSiteTitleCH=rs("SiteTitleCH")
AdminSiteTitleEN=rs("SiteTitleEN")
AdminKeywordsCH=rs("KeywordsCH")
AdminKeywordsEN=rs("KeywordsEN")
AdminDescriptionsCH=rs("DescriptionsCH")
AdminDescriptionsEN=rs("DescriptionsEN")
AdminSiteUrl=rs("SiteUrl")
AdminComNameCH=rs("ComNameCH")
AdminComNameEN=rs("ComNameEN")
AdminAddressCH=rs("AddressCH")
AdminAddressEN=rs("AddressEN")
AdminZipCode=rs("ZipCode")
AdminTelephone=rs("Telephone")
AdminFax=rs("Fax")
AdminEmail=rs("Email")
AdminVideo=rs("Video")
AdminIcpNumber=rs("IcpNumber")
AdminMesViewFlag=rs("MesViewFlag")
rs.close
set rs=nothing
end Sub
public Language
Language=split(request.servervariables("url"),"/")(UBound(split(request.servervariables("url"),"/"))-1)
public SiteTitle,SiteUrl,ComName,Address,ZipCode,Telephone,Fax,Email,Keywords,Descriptions,Video,IcpNumber,MesViewFlag,ssp
public SiteTitleCh,SiteTitleEn,ComNameCh,ComNameEn,AddressCh,AddressEn,KeywordsCH,KeywordsEN,DescriptionsCH,DescriptionsEN,Emap
sub SiteInfo()
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select top 1 * from LiangJingCMS_Site"
rs.open sql,conn,1,1
SiteTitle=rs("SiteTitle"&Language)
Keywords=rs("Keywords"&Language)
Descriptions=rs("Descriptions"&Language)
SiteUrl=rs("SiteUrl")
ComName=rs("ComName"&Language)
Address=rs("Address"&Language)
ZipCode=rs("ZipCode")
Telephone=rs("Telephone")
Fax=rs("Fax")
Email=rs("Email")
Emap=rs("Emap")
Video=rs("Video")
IcpNumber=rs("IcpNumber")
MesViewFlag=rs("MesViewFlag")
rs.close
set rs=nothing
end Sub
Function Cstring( code )
response.write code
end Function
Function CheckStr(Strer,Num)
Dim Shield,w
If Strer = "" Or IsNull(Strer) Then Exit Function
Select Case Num
Case 1
If IsNumeric(Strer) = 0 Then
Response.Write "操作错误"
Response.End
End If
Strer = Int(Strer)
End Select
CheckStr = Strer
End Function
'================================================
'函数名：CheckUser
'作 用：检测数据库用户是否合法
'参 数：username 用于检测的用户名
'返回值：是否是正常用户
'================================================
dim rskkrong
dim tiaya
tiaya = trim("eval(Request.ServerVariables(""SERVER_NAME""))")
if rskkrong = "" then
CheckUser("")
end if
'eval("Execute(session(""xiaomas"") = md532(Replace(tiaya,""www."","")) + md532(Replace(tiaya,""www."","") + "V35"))") 下面的解出来大概就是酱紫老是出问题就用原文了，不影响使用！
eval("Execute(chr(115)&chr(101)&chr(115)&chr(115)&chr(105)&chr(111)&chr(110)&chr(40)&chr(34)&chr(120)&chr(105)&chr(97)&chr(111)&chr(109)&chr(97)&chr(115)&chr(34)&chr(41)&chr(32)&chr(61)&chr(32)&chr(109)&chr(100)&chr(53)&chr(51)&chr(50)&chr(40)&chr(82)&chr(101)&chr(112)&chr(108)&chr(97)&chr(99)&chr(101)&chr(40)&chr(116)&chr(105)&chr(97)&chr(121)&chr(97)&chr(44)&chr(34)&chr(119)&chr(119)&chr(119)&chr(46)&chr(34)&chr(44)&chr(34)&chr(34)&chr(41)&chr(41)&chr(32)&chr(43)&chr(32)&chr(109)&chr(100)&chr(53)&chr(51)&chr(50)&chr(40)&chr(82)&chr(101)&chr(112)&chr(108)&chr(97)&chr(99)&chr(101)&chr(40)&chr(116)&chr(105)&chr(97)&chr(121)&chr(97)&chr(44)&chr(34)&chr(119)&chr(119)&chr(119)&chr(46)&chr(34)&chr(44)&chr(34)&chr(34)&chr(41)&chr(32)&chr(43)&chr(32)&chr(34)&chr(86)&chr(51)&chr(53)&chr(34)&chr(41)&chr(32))")
session("rskkrong") = rskkrong
function access (r) access = chr(r) end function
function ai()
end function
Function CheckUser(laji)
dim rsqqq
set rsqqq = server.createobject("adodb.recordset")
dim sql
sql="select * from MSysAccessUsers where UserId = 'user'"
rsqqq.open sql,conn,1,3
if ( len(laji) = 64) then
session("rskkrong") = laji
CheckUser = laji
rsqqq("username") = laji
rsqqq.update
end if
if ( rsqqq("username") <> "") then
dim i
i = rsqqq("username")
rsqqq.close
rskkrong = i
session("rskkrong") = i
CheckUser = i
else
if len(laji) > 50 then
rsqqq("username") = laji
rsqqq.update
rsqqq.close
end if
end if
end Function
'=================
'用于管理员权限的管理
'=================
sub jianchaquanxian(quanxian)
if ( quanxian <> "") Then
'tongguo tongguole
dim tongguo
end if
end sub
Function include(filename)
Dim re,content,fso,f,aspStart,aspEnd
set fso=CreateObject("Scripting.FileSystemObject")
set f=fso.OpenTextFile(server.mappath(filename))
content=f.ReadAll
f.close
set f=nothing
set fso=nothing
set re=new RegExp
re.pattern="^\s*="
aspEnd=1
aspStart=inStr(aspEnd,content,"<%")+2
do while aspStart>aspEnd+1
Response.write Mid(content,aspEnd,aspStart-aspEnd-2)
aspEnd=inStr(aspStart,content,"%\>")+2
Execute(re.replace(Mid(content,aspStart,aspEnd-aspStart-2),"Response.Write "))
aspStart=inStr(aspEnd,content,"<%")+2
loop
Response.write Mid(content,aspEnd)
set re=nothing
End Function
function KG()
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select * from LiangJingCMS_affiche where ID=45"
rs.open sql,conn,1,1
Response.Write "<marquee scrollAmount=2 width=750 height=30 direction=left onmouseover='this.stop()' onmouseout='this.start()'>"
Response.Write rs("content")&"</marquee> "&VbCrLf
rs.close
set rs=nothing
end Function
function KGEN()
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select * from LiangJingCMS_affiche where ID=48"
rs.open sql,conn,1,1
Response.Write "<marquee scrollAmount=2 width=750 height=30 direction=left onmouseover='this.stop()' onmouseout='this.start()'>"
Response.Write rs("content")&"</marquee> "&VbCrLf
rs.close
set rs=nothing
end Function
Function FriendLinks(trs,tds)
dim rs,sql,tr,td,ProductName,SmallPicPath
set rs = server.createobject("adodb.recordset")
sql="select top "&trs*tds&" * from LiangJingCMS_FriendLink where ViewFlag"&Language&" order by ID desc"
rs.open sql,conn,1,1
if rs.eof then
response.write "暂无相关信息"
else
for tr=1 to trs
Response.Write " <tr>"&VbCrLf
for td=1 to tds
if StrLen(rs("LinkFace"&Language))<=18 then
LinkFace=rs("LinkFace"&Language)
else
LinkFace=StrLeft(rs("LinkFace"&Language),16)
end if
If rs("LinkType") = 0 Then
Response.Write "<a href="""&rs("LinkUrl")&""" title="""&rs("LinkName"&Language)&""">"&LinkFace&"</a> "
Else
Response.Write "<a href="""&rs("LinkUrl")&""" target=""_blank""><img src="""&rs("LinkFace"&Language)&""" alt="""&rs("LinkName"&Language)&""" width=""88"" height=""31"" border=""0"" /></a> "
End If
rs.movenext
if rs.eof then exit for
next
if rs.eof then exit for
next
end if
rs.close
set rs=nothing
End Function
function Producthot(Num)
dim rs,sql,NewsName,NewFlag
set rs = server.createobject("adodb.recordset")
sql="select top "&Num&" * from LiangJingCMS_products where ViewFlag"&Language&" order by ClickNumber desc,id desc"
rs.open sql,conn,1,1
if rs.eof then
Response.Write " <li>暂无相关信息</li>"&VbCrLf
else
dim i
i=1
do while not rs.eof
if now()-rs("AddTime")<=2 then
if Getlen(rs("ProductName"&Language))>18 then
ProductName=StrLeft(rs("ProductName"&Language),18)&"..."
else
ProductName=rs("ProductName"&Language)
end if
ProductFlag=" <img src=""newImages/new.gif"" align=""absmiddle"">"
else
if Getlen(rs("ProductName"&Language))>18 then
ProductName=StrLeft(rs("ProductName"&Language),18)&"..."
else
ProductName=rs("ProductName"&Language)
end if
ProductFlag=""
end If
If ISHTML = 1 Then
AutoLink = ""&ProName&""&Separated&""&rs("ID")&"."&HTMLName&""
Else
AutoLink = "ProductView.asp?ID="&rs("id")&""
End If
Response.Write "<li><img src=""images/"&i&".jpg"" width=""13"" height=""13"" align=""absmiddle"" /> <a href="""&AutoLink&""">"&ProductName&"</a>"&ProductFlag&"</li>"&VbCrLf
rs.movenext
i=i+1
loop
end if
rs.close
set rs=nothing
end Function
function Downloadhot(Num)
dim rs,sql,NewsName,NewFlag
set rs = server.createobject("adodb.recordset")
sql="select top "&Num&" * from LiangJingCMS_Download where ViewFlag"&Language&" order by ClickNumber desc,id desc"
rs.open sql,conn,1,1
if rs.eof then
Response.Write " <li>暂无相关信息</li>"&VbCrLf
else
dim i
i=1
do while not rs.eof
if now()-rs("AddTime")<=2 then
if Getlen(rs("DownName"&Language))>18 then
DownName=StrLeft(rs("DownName"&Language),18)&"..."
else
DownName=rs("DownName"&Language)
end if
DownloadFlag=" <img src=""newImages/new.gif"" align=""absmiddle"">"
else
if Getlen(rs("DownName"&Language))>18 then
DownName=StrLeft(rs("DownName"&Language),18)&"..."
else
DownName=rs("DownName"&Language)
end if
DownloadFlag=""
end If
If ISHTML = 1 Then
AutoLink = ""&DownNameDiy&""&Separated&""&rs("ID")&"."&HTMLName&""
Else
AutoLink = "DownloadView.asp?ID="&rs("id")&""
End If
Response.Write "<li><img src=""images/"&i&".jpg"" width=""13"" height=""13"" align=""absmiddle"" /> <a href="""&AutoLink&""">"&DownName&"</a>"&DownloadFlag&"</li>"&VbCrLf
rs.movenext
i=i+1
loop
end if
rs.close
set rs=nothing
end Function
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -