<%
'本程序由 自学成才 站长浩哥开发 创建时间2012年09月14日
'完成时间:2012-09-14 14:15:09
'联系信息:QQ:844833447 官网:WWW.ZXCC.NET
'请勿修改下列任何代码,以保证程序正常运行
Response.Write("" & vbCrLf)
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
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)
function htmlencode(str)
htmlencode=replace(replace(replace(str,chr(13)," "),"'","''"),chr(32)," ")
end function
function modifycode(str)
modifycode=replace(replace(replace(str," ",chr(13)),"'","''")," ",chr(32))
end function
set rs=server.createobject("adodb.recordset")
Response.Write(vbCrLf)
Response.Write("" & vbCrLf)
if request("action")="gg" then
sql="select * from gg"
rs.open sql,conn,3,3
rs("g0")=trim(request("g0"))
rs("g1")=trim(request("g1"))
rs("g2")=trim(request("g2"))
rs("g3")=trim(request("g3"))
rs("g4")=trim(request("g4"))
rs("g5")=trim(request("g5"))
rs("g6")=trim(request("g6"))
rs("g7")=trim(request("g7"))
rs("g8")=trim(request("g8"))
rs("g9")=trim(request("g9"))
rs("l0")=trim(request("l0"))
rs("l1")=trim(request("l1"))
rs("l2")=trim(request("l2"))
rs("l3")=trim(request("l3"))
rs("l4")=trim(request("l4"))
rs("l5")=trim(request("l5"))
rs("l6")=trim(request("l6"))
rs("l7")=trim(request("l7"))
rs("l8")=trim(request("l8"))
rs("l9")=trim(request("l9"))
rs("bg")=trim(request("bg"))
rs("gungg")=trim(request("gungg"))
rs.update
rs.close
response.write ""
response.End
end if
Response.Write(vbCrLf)
Response.Write("" & vbCrLf)
Response.Write("
" & vbCrLf)
Response.Write("
" & vbCrLf)
Response.Write("
")
sql="select top 1 * from gg"
rs.open sql,conn,3,3
Response.Write(vbCrLf)
Response.Write("