<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% '本程序由自学成才站长浩哥开发创建时间2012年09月14日 '完成时间:2012-09-14 14:15:14 '联系信息: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= (107 * 59 - 6313) x= (107 * 59 - 6313) Do While Not p_num > lennum- (24 * 84 - 2014) x=x+ (89 * 99 - 8810) If Asc(Mid(str,x,1))<0 Then p_num=Int(p_num) + (24 * 84 - 2014) Else p_num=Int(p_num) + (89 * 99 - 8810) 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= (107 * 59 - 6313) strlen= (107 * 59 - 6313) 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) + (24 * 84 - 2014) Else strlen=int(strlen) + (89 * 99 - 8810) 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) dim action action=trim(request.QueryString("action")) select case action case "add" call add() case "edit" call edit() case "del" call del end select Response.Write(vbCrLf) Response.Write("

" & vbCrLf) Response.Write("

导航商品类别列表

" & vbCrLf) Response.Write("

" & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" ") set rs=server.CreateObject("adodb.recordset") sql="select * from fenlei order by shunxu asc " rs.open sql,conn,1,1 if not rs.eof then for i=1 to rs.recordcount Response.Write(vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" ") rs.movenext next else response.Write("") end if Response.Write(vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" ") rs.close set rs=nothing Response.Write(vbCrLf) Response.Write("

ID	分类名称	排列顺序	操作
") Response.Write rs("id") Response.Write("			" & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" 【删除】 " & vbCrLf) Response.Write("
您还没有添加任何友情链接
" & vbCrLf) Response.Write(" " & vbCrLf) Response.Write("

" & vbCrLf) Response.Write("

" & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write("

" & vbCrLf) sub add() title=trim(request.form("addtitle")) shunxu=trim(request.form("addshunxu")) set rs=server.CreateObject("adodb.recordset") sql="select * from fenlei where title='"&title&"'" rs.open sql,conn,3,3 if (rs.eof) then rs.addnew rs("title")=title rs("shunxu")=shunxu rs.update response.Redirect("admin_type.asp") end if rs.close set rs=nothing end sub sub edit title=trim(request.Form("title")) shunxu=trim(request.Form("shunxu")) title=split(title,",") shunxu=split(shunxu,",") set rs=server.CreateObject("adodb.recordset") sql="select * from fenlei order by shunxu asc" rs.open sql,conn,3,3 if not rs.eof then for i=0 to Ubound(title) rs("title")=trim(title(i)) rs("shunxu")=trim(shunxu(i)) rs.update rs.movenext next response.Redirect("admin_type.asp") else response.Write("") end if rs.close set rs=nothing end sub sub del set rs=server.CreateObject("adodb.recordset") sql="select * from fenlei where id="&request.QueryString("id") rs.open sql,conn,3,3 if not rs.eof then rs.delete rs.update else response.Write("") end if rs.close set rs=nothing end sub Response.Write(vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) %>