<!-- #Include File="../Include/Skin.asp" -->
<%
'=======================================================
' 欢迎使用《阿赛大型门户网站系统V3.0》，简称“AsaiMHV3”
' 技术支持、商业版咨询、官方唯一指定联系QQ“4941172”
' 官方网站：http://77ya.com      程序负责人：阿赛
'=======================================================

tit="资源报错"
dim eid,ntit,topic,url,actions
ChannelIDs=Cls.Code_ID("ChannelIDs")
eid=Cls.Code_ID("eid")
ntit=Cls.Code_Query("ntit")
topic=Cls.Code_Query("topic")
url=Cls.Code_Query("url")
actions=Cls.Code_Query("actions")
If login_mode="" Then
  Call Cls.Out_Msg("您现在还没有登陆本站！\n\n请先注册并登陆本站。","javascript:window.close()")
End If
call DoWebHead(0,0)
Cls.LoadTemplate(0)
Response.write Cls.ReHtml(ShowWebHead(1),1)
  If actions="add" Then
    call err_send()
  Else
    call err_main()
  End If
call web_copy()
Response.write Cls.ReHtml(ShowWebEnd(1),1)
Call DoWebEnd()
sub err_send()
dim found_err,fname,femail,remark,username,email,eusername,eword,eid,topic
  found_err=""
  eusername=Cls.Code_Form("eusername")
  email=Cls.Code_Form("email")
  eword=Cls.Code_Form("eword")
  eid=Cls.Code_ID("eid")
  topic=Cls.Code_Form("topic")
  If Not Cls.CodeIsTrue() Then
    Call Cls.Out_Msg("系统发现您提交的数据有错误存在：\n\n您提交的 验证码 有错误，请勿非法提交！\n\n请返回重新填定……","javascript:history.back(1)")
    Exit Sub
  End If
  If Cls.Is_Email(email,50)=false or eusername="" Then
    Call Cls.Out_Msg("系统发现您提交的数据有错误存在：\n\n您的姓名和邮件不能为空！\n\n请返回重新填定……","javascript:history.back(1)")
    Exit Sub
  End If
  sql="insert into AsaiMHErr(ChannelIDs,eid,topic,eusername,email,eword,etim) " & _
     "values("&ChannelIDs&","&eid&",'"&topic&"','"&eusername&"','"&email&"','"&eword&"','"&Cls.now_time&"')"
  call Cls.exec(sql,0)
  Call Cls.Out_Msg("您已成功完成本次错误报告！\n\n谢谢你的支持,点击关闭…","javascript:window.close()")
End Sub
sub err_main()
%>
<table cellspacing=1 cellpadding=4 class=table>
<tr><td class=td colspan=2>&nbsp;<%Response.Write img_skin("h_")&tit%></td></tr>
<form action='?<%Response.Write "ChannelIDs="&ChannelIDs&"&topic="&server.urlencode(topic)&"&eid="&eid&"&ntit="&server.urlencode(ntit)%>&actions=add' method=post onsubmit="javascript:frm_submitonce(this);">
<input type=hidden name=chk value='yes'>
<tr class=tr><td width='20%'>报错栏目：</td><td width='80%' class=red><b><%response.write ntit%></b></td></tr>
<tr class=tr><td>资源标题：</td><td class=blue><b><%Response.Write topic%></b></td></tr>
<tr class=tre>
    <td>简短附言：<br /><font class=red2>可不填写</font><br /><br />写明出错的原因及表现以便处理</td>
    <td><textarea name=eword rows=7 cols=55></textarea><%Response.Write redx%></td></tr>
<tr  class=tr><td>您的姓名：</td><td><input type=text name=eusername value='<%Response.Write login_username%>' size=20 maxlength=20><%Response.Write redx%></td></tr>
<tr  class=tr><td>您的邮件：</td><td><input type=text name=email value='<%Response.Write login_email%>' size=40 maxlength=50><%Response.Write redx%></td></tr>
<tr  class=tr>
<td>验 证 码：</td>
<td colspan=2><%Response.Write Cls.GetCode()%></td>
</tr>
<tr  class=trb><td colspan=2 align=center height=40><input type=submit class=btn value='立即报告出错资源'>　　　<input type=reset class=btn value='重新填写'></td></tr>
</form>
</table>
<%
End Sub
%>
