<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'本程序由 自学成才 站长浩哥开发 创建时间2012年09月14日
'完成时间:2012-09-14 14:15:13
'联系信息:QQ:844833447 官网:WWW.ZXCC.NET
'请勿修改下列任何代码,以保证程序正常运行
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../../data#%zxcc/zxcc#net%haoge#844833447.asp")
function closedb
conn.close
set conn=nothing
end function
sub error()
response.write ""
end sub
sub success()
response.write ""
end sub
sub noalertsuccess()
response.write ""
end sub
sub closewin()
response.write ""
end sub
Function safechk()
dim server_v1,server_v2
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
msg="不能从外部网页提交！"
response.write ""
response.end
end if
End Function
Function safestr(str)
safestr=Replace(Replace(str,"'",""),";","")
End Function
Function dealStr(userName_)
Dim RegExpObj
Dim i,n
Dim userName,tempStr,resultStr
userName=Trim(userName_)
Set RegExpObj=new RegExp
RegExpObj.Global = True
RegExpObj.Pattern="^[a-zA-Z0-9_]+$"
resultStr=userName
n=Len(userName)
for i=1 to n
tempStr=Mid(userName,i,1)
if not RegExpObj.test(tempStr) then resultStr=Replace(resultStr,tempStr,"")
next
Set RegExpObj=nothing
dealStr=resultStr
End Function
Function dealNum(userName_)
Dim RegExpObj
Dim i,n
Dim userName,tempStr,resultStr
userName=Trim(userName_)
Set RegExpObj=new RegExp
RegExpObj.Global = True
RegExpObj.Pattern="^[0-9]+$"
resultStr=userName
n=Len(userName)
for i=1 to n
tempStr=Mid(userName,i,1)
if not RegExpObj.test(tempStr) then resultStr=Replace(resultStr,tempStr,"")
next
Set RegExpObj=nothing
dealNum=resultStr
End Function
function deletefiles(path)
on error resume next
Set fs=Server.CreateObject("Scripting.FileSystemObject")
if fs.FileExists(path) then
fs.DeleteFile path,True
f_name=path.name
end if
Set fs=nothing
if Err.number<>0 then Response.Write Err.number
end function
Function RemoveHTML(strText)
Dim RegEx
Set RegEx = New RegExp
RegEx.Pattern = "<[^>]*>"
RegEx.Global = True
RemoveHTML = RegEx.Replace(strText,"")
RemoveHTML = Replace(Replace(Replace(RemoveHTML," ",""),vbcrlf,"")," ","")
End Function
Function RemoveLink(s)
Dim Re
Set Re = New RegExp
Re.Pattern = "]*>|"
Re.Global = True
RemoveLink = Re.Replace(s,"")
End Function
Function RedKeyword(strText,keyword)
RedKeyword=Replace(strText,keyword,""&keyword&"")
End Function
Function RemoveChinaz(s)
Dim Re
Set Re = New RegExp
Re.Pattern = "]*>[^>]*|
]*>[^>]*
|]*>[^>]*|]*>[^>]*|"
Re.Global = True
RemoveChinaz = Re.Replace(s,"")
End Function
function water_and_small(oldjpg,smalljpg)
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open Server.MapPath(oldjpg)
Jpeg.Width = "218"
Jpeg.Height = "153"
Jpeg.Sharpen 1, 130
Jpeg.Save Server.MapPath(smalljpg)
Set Jpeg = Nothing
end function
Function Format_Time(s_Time, n_Flag)
Dim y, m, d, h, mi, s
Format_Time = ""
If IsDate(s_Time) = False Then Exit Function
y = cstr(year(s_Time))
m = cstr(month(s_Time))
If len(m) = 1 Then m = "0" & m
d = cstr(day(s_Time))
If len(d) = 1 Then d = "0" & d
h = cstr(hour(s_Time))
If len(h) = 1 Then h = "0" & h
mi = cstr(minute(s_Time))
If len(mi) = 1 Then mi = "0" & mi
s = cstr(second(s_Time))
If len(s) = 1 Then s = "0" & s
Select Case n_Flag
Case 1
Format_Time = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s
Case 2
Format_Time = y & "-" & m & "-" & d
Case 3
Format_Time = h & ":" & mi & ":" & s
Case 4
Format_Time = y & "年" & m & "月" & d & "日"
Case 5
Format_Time = y & m & d
End Select
End Function
Function Strsub(str,lennum,s)
If Not IsNull(str) Then
Dim p_num,x
Dim i
If strlen(str)<=lennum Then
Strsub=str
Else
p_num= (89 * 60 - 5340)
x= (89 * 60 - 5340)
Do While Not p_num > lennum- (79 * 46 - 3632)
x=x+ (108 * 81 - 8747)
If Asc(Mid(str,x,1))<0 Then
p_num=Int(p_num) + (79 * 46 - 3632)
Else
p_num=Int(p_num) + (108 * 81 - 8747)
End If
Strsub=Left(Trim(str),x)&s
Loop
End If
Else
Strsub="Null"
End If
End Function
Function strlen(str)
Dim p_len,xx
p_len= (89 * 60 - 5340)
strlen= (89 * 60 - 5340)
If Trim(str)<>"" Then
p_len=len(trim(str))
For xx=1 To p_len
If asc(mid(str,xx,1))<0 Then
strlen=int(strlen) + (79 * 46 - 3632)
Else
strlen=int(strlen) + (108 * 81 - 8747)
End If
Next
End If
End Function
Response.Write(vbCrLf)
Response.Write("" & vbCrLf)
if Session("Adminid")="" or Session("Adminusername")="" or Session("Admintruename")="" then
response.redirect "chaoshi?id=1"
response.end
end if
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
msg="很抱歉!404错误页面"
response.write ""
response.end
end if
Response.Write(vbCrLf)
Response.Write("" & vbCrLf)
Response.Write("" & vbCrLf)
Response.Write("" & vbCrLf)
Response.Write("" & vbCrLf)
action=request.QueryString("action")
select case action
case "tj"
call tj()
case "del"
call del
case "dela"
call dela
end select
Response.Write(vbCrLf)
Response.Write("" & vbCrLf)
Response.Write("
" & vbCrLf)
sub tj
pageid=request.QueryString("pageid")
id=request.QueryString("id")
set rs=server.CreateObject("adodb.recordset")
sql="select * from list where id="&Id
rs.open sql,conn,3,3
if not rs.eof then
if rs("tj")=1 then
rs("tj")= (89 * 60 - 5340)
rs.update
elseif rs("tj")=0 then
rs("tj")= (108 * 81 - 8747)
rs.update
end if
end if
response.Redirect("admin_list.asp?pageid="&pageid)
end sub
sub del
id=request.Form("checkbox")
set rs=server.CreateObject("adodb.recordset")
sql="select * from list where id in ("&id&")"
rs.open sql,conn,3,3
if not rs.eof then
do while not rs.eof
rs.delete
rs.update
rs.movenext
loop
response.Write("")
response.End()
end if
end sub
sub dela
id=request.QueryString("id")
set rs=server.CreateObject("adodb.recordset")
sql="select * from list where id="&id
rs.open sql,conn,3,3
if not rs.eof then
rs.delete
rs.update
response.Write("")
response.End()
end if
end sub
Response.Write(vbCrLf)
Response.Write("" & vbCrLf)
Response.Write("