postping.asp

采用三级目录

<!--#include file="conn.asp"-->
<%
dim id,title,text,rs,sql
id=request("id")
        title=LCase(Request("title"))
        text=LCase(Request("text"))
	if text="" or title="" then response.redirect "err.asp?id=1"

        set rs=server.createobject("adodb.recordset")
	sql="select * from ping"
	rs.open sql,conn,1,3
        rs.addnew
        rs("title")=request("title")
        rs("text")=request("text")
        rs("writer")=request("writer")
        rs("articleid")=id
        rs.update
	rs.close
        set rs=server.createobject("adodb.recordset")
if left(id,1)="w" then
if not isNumeric(right(id,(len(id)-1))) then response.redirect "err.asp?id=14"
	sql="select ping from soft where id="&right(id,(len(id)-1))
else
if left(request("id"),1)="f" then
if not isNumeric(right(id,(len(id)-1))) then response.redirect "err.asp?id=14"
	sql="select ping from film where id="&right(id,(len(id)-1))
else
if not isNumeric(id) then response.redirect "err.asp?id=14"
	sql="select ping from article where articleid="&id
end if
end if
	rs.open sql,conn,1,3
        rs("ping")=rs("ping")+1
        rs.update
	rs.close
	set rs=nothing
	conn.close
	set conn=nothing
        response.redirect "cgping.asp?id="&id
%>