<!-- #include file="Inc/Inc.asp" -->
<!-- #include file="Inc/Function.asp" -->
<%Call Head()%>
<%Call saycarda("下载报错")
dim id,msg,ids,cid,softname
ID=request("id")
if id="" or IsNumeric(id)=False then
  Call Error("ID无效！")
  end if
pa=request("pa")
if pa="" or IsNumeric(pa)=False then pa=1
ids=request("class")
if ids="" or IsNumeric(ids)=False then
  Call Error("ID无效！")
  end if
cid=request("cid")
if cid="" or IsNumeric(cid)=False then
  Call Error("ID无效！")
  end if
errtype=request("errtype")
msg=request("msg")
errcontent=request("errcontent")
softname=request("softname")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="Select * from xzfile where ID="&id
rs.open sql,conn,1,1
if rs.eof then
msg="0"
else
softname=rs("name")
end if
rs.close   
set rs=nothing
if request("act")<>"" then
ids=request("class")
cid=request("cid")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="Select * from xzerr"
rs.open sql,conn,1,3
rs.addnew
rs("errtype")=errtype
if errcontent<>"" then rs("errcontent")=errcontent
if softname<>"" then rs("softname")=softname
rs("sid")=id
rs("ids")=ids
rs("cid")=cid
rs("sid")=id
rs("errtime")=now()
rs.update
rs.close   
set rs=nothing
conn.close
set conn=nothing%>
提交成功！谢谢您的支持，我们会很快处理您的问题．<br/>
<a href='soft_view.asp?id=<%=id%>&amp;saytk=<%=saytk%>&amp;class=<%=ids%>&amp;cid=<%=cid%>&amp;pa=<%=pa%>&amp;sid=<%=sid%>'>返回上级</a><br/><a href='soft_list.asp?class=<%=ids%>&amp;saytk=<%=saytk%>&amp;cid=<%=cid%>&amp;pa=<%=pa%>&amp;sid=<%=sid%>'>返回栏目</a><br/>
<%
Else

if saytk=>2 then
	Response.write "<form name=""form"" method=""post"" action=""err.asp?sid="&sid&"&amp;saytk="&saytk&""">"
end if
response.write"报错类别"
response.write"<select name=""errtype"" value=""1"">"	
response.write"<option value=""1"">下载链接无效</option>"
response.write"<option value=""2"">软件无法安装</option>"
response.write"<option value=""3"">携带恶意插件</option>"
response.write"<option value=""4"">软件资料有误</option>"
response.write"<option value=""5"">其他报错</option>"
response.write"</select><br/>"
response.write"备注:(50字内.可留空)<br/>"
response.write"<input name=""errcontent"" type=""text"" maxlength=""50"" /><br/>"

If saytk<>1 Then


%>
<input type="hidden" name="softname" value="<%=softname%>">
<input type="hidden" name="pa" value="<%=pa%>">
<input type="hidden" name="cid" value="<%=cid%>">
<input type="hidden" name="class" value="<%=ids%>">
<input type="hidden" name="id" value="<%=id%>">
<input type="hidden" name="act" value="1">
<input type="hidden" name="msg" value="<%=msg%>">
<input type="submit" name="Submit" value="提交错误"></form><br/><%
else
response.write"<anchor title=""提交错误"">提交错误"
response.write"<go method=""post"" href=""err.asp?sid="&sid&"&amp;saytk="&saytk&""">"
response.write"<postfield name=""errtype"" value=""$(errtype)""/>"
response.write"<postfield name=""msg"" value="""&msg&"""/>"
response.write"<postfield name=""act"" value=""1""/>"
response.write"<postfield name=""errcontent"" value=""$(errcontent)""/>"
response.write"<postfield name=""id"" value="""&id&"""/>"
response.write"<postfield name=""class"" value="""&ids&"""/>"
response.write"<postfield name=""cid"" value="""&cid&"""/>"
response.write"<postfield name=""pa"" value="""&pa&"""/>"
response.write"<postfield name=""softname"" value="""&softname&"""/>"
response.write"</go></anchor>"
End if
If saytk=1 then
response.write"<br/><anchor>返回上级<prev/></anchor>"
End if

end If
Call headsay()
%>
