jb_save.asp

免费实用家教网整站程序(奥运特别版) v1.5

<!--#include file="conn.asp"-->
<%
dim rs,sql,name,url1,url2,yq,money,qq,lxr,address,phone
if trim(request("jname"))="" then
response.write "<script language=JavaScript>" & chr(13) & "alert('被举报单位/个人名称必须填写！');" & "history.back()" & "</script>"
Response.End
end if 
if trim(request("content"))="" then
response.write "<script language=JavaScript>" & chr(13) & "alert('举报内容为空！');" & "history.back()" & "</script>" 
Response.End
end if
if len(request("content"))>1500 then
response.write "<script language=JavaScript>" & chr(13) & "alert('举报内容不能超过1500字！');" & "history.back()" & "</script>" 
Response.End
end if 
if trim(request("name"))="" then
response.write "<script language=JavaScript>" & chr(13) & "alert('举报人姓名必须填写！');" & "history.back()" & "</script>" 
Response.End
end if
if trim(request("phone"))="" then
response.write "<script language=JavaScript>" & chr(13) & "alert('举报人电话必须填写！');" & "history.back()" & "</script>" 
Response.End
end if
if trim(request("zj"))="" then
response.write "<script language=JavaScript>" & chr(13) & "alert('举报人有效证件必须填写！');" & "history.back()" & "</script>" 
Response.End
end if
jname=Request.Form("jname")
content=Request.Form("content")
name=Request.Form("name")
phone=Request.Form("phone")
qq=Request.Form("qq")
email=Request.Form("email")
zj=Request.Form("zj")
x2=Request.Form("x2")
ip=request.servervariables("remote_addr")
set rs=server.CreateObject("Adodb.recordset")
rs.open "select * from jb ",conn,1,3
rs.addnew
rs("jname")=jname
rs("content")=content
rs("name")=name
rs("phone")=phone
rs("qq")=qq
rs("email")=email
rs("zj")=zj
rs("ip")=ip
rs("x2")=x2
rs.update
rs.close
set rs=nothing
set conn=nothing
response.write "<script language=JavaScript>" & chr(13) & "alert('你的举报信息已成功提交到我站“信息库”！我们将对你提交的信息尽快处理，谢谢你的支持！如果需要请联系我们： 我们的电话-13981528686 QQ-451079368 ');"&"window.location.href = 'index.asp'"&" </script>"

%>