
<!--#include file="conn.asp"-->


<%
Call head()
Call saycarda("发表评论")
dim ids,pin,id,pa,cid
ids=cint(request.QueryString("class"))
pin=request.form("pin")
id=cint(request.QueryString("id"))
pa=request.QueryString("pa")
if pa="" then pa=1
cid=cint(request.QueryString("cid"))
fileid=cint(request("id"))
ip=Request.ServerVariables("REMOTE_ADDR")
if pin="" then
response.write("评论内容不能为空！<br/>")
else
set rs=Server.CreateObject("ADODB.Recordset")
rsstr="select * from pin"
rs.open rsstr,conn,1,3
rs.addnew
if pin<>"" then rs("pin")=pin
if ip<>"" then rs("ip")=ip
if fileid<>"" then rs("fileid")=fileid
rs("pltime")=now()
rs.update
response.write("评论发表成功！<br/>")
rs.close
Set rs=nothing
conn.close
set conn=nothing
end if
%>
<a href='pin.asp?id=<%=id%>&amp;class=<%=ids%>&amp;cid=<%=cid%>&amp;pa=<%=pa%>&amp;sid=<%=sid%>'>查看评论</a><br/>
<a href='soft_viwe.asp?id=<%=id%>&amp;class=<%=ids%>&amp;cid=<%=cid%>&amp;pa=<%=pa%>&amp;sid=<%=sid%>'>返回</a>><a href='soft_list.asp?class=<%=ids%>&amp;cid=<%=cid%>&amp;pa=<%=pa%>&amp;sid=<%=sid%>'>栏目</a>><a href='/index.asp?sid=<%=sid%>'>首页</a>
<%call headsay()%>