<%
if Request("method") = 1 then
articleid = Request.form("articleid")
face = Request.form("face")
content = Qcdn.checkStr(Trim(Request.form("content")))
username = Qcdn.checkStr(Trim(Request.form("username")))
password = Qcdn.checkStr(Trim(Request.form("password")))
if Request.Cookies("qcdn")("user_name") = "" then
password = md5(password,16)
end if
ip = Request.ServerVariables("REMOTE_ADDR")
Sql = "select Unid from article_User where username = '"& username &"' and password = '"& password &"'"
set rs = conn.execute(sql)
if rs.eof and rs.bof then
response.write ""
rs.close : set rs = nothing
response.end
else
sql = "Insert into article_remark(articleid,username,content,faceid,intime,ip)values("& articleid &",'"& username &"','"& content &"',"& face &",Now(),'"& ip &"')"
conn.execute(sql)
Response.write ""
response.end
end if
elseif Request("method") = 2 then
unid = Request("unid")
sql = "update article_info set Audit = 0 where Unid in ("& unid &")"
conn.execute(sql)
Response.Write("")
Response.End()
elseif Request("method") = 3 then
unid = Request("unid")
Response.Write("")
Response.End()
end if
id=request("id")
cid=request("cid")
'Response.Write unid
if unid = "" and id<>"" and cid<>"" then
Sql = "select Unid from article_info where classid = "& id &" and Nclassid = "& cid &""
set rs = server.CreateObject ("adodb.recordset")
rs.Open sql,conn,3,3
unid=rs("Unid")
'Response.End()
else
Unid = Request("Unid")
end if
ad = Request("ad")
Sql = "Select title,content,Nclassid,classid,Nkey,hits,writer,writefrom,Intime,Popedom from article_info where Unid = " & Unid
Set Rs = conn.execute(Sql)
if Rs.eof and Rs.bof then
Errmsg = "
发现异常错误。
错误编号为: error 108。
请和信息中心联系解决问题。"
call Qcdn.Err_List(errmsg,3)
Response.End()
else
Popedom = Rs(9)
if AddPopedom then
if Popedom = 1 then
if Request.Cookies("qcdn")("user_name") = "" then
Response.write ("")
Response.end
end if
end if
end if
sql = "Update article_info set hits=hits+1 where Unid = " & Unid
Conn.execute(sql)
title = Rs(0)
content = Rs(1)
Nclassid = Rs(2)
classid = Rs(3)
Nkey = Rs(4)
hits = Rs(5)
writer = Rs(6)
writefrom = Rs(7)
Intime = Rs(8)
end if
Rs.close
%>
政法学院
