tzsave.asp

自己做的毕业设计

<%@ Language=VBScript %>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="inc/conndb.asp"-->
<!--#include file="inc/jinzhi.asp"-->
<!--#include file="inc/function.asp"-->
<%
'----------------读取数据-------------------
rid=request.form("rid")
title=request.form("title")
content=request.form("content")
image=request.form("image")
name=Request.Cookies("mctb_name")
ip=Request.ServerVariables("REMOTE_ADDR")
recount=request.form("count")
'----------------数据编码-------------------
title=server.htmlencode(title)
image=server.htmlencode(image)
content=server.htmlencode(content)
'----------------数据判断-------------------
ip1=split(ip,".")
ip2= ip1(0)&"."&ip1(1)&"."&ip1(2)&".*"
if name="" then name=ip2
if rid="" then 
'------------判断认证码---------------
if Request.Cookies("mctb_name")="" then
Code=trim(request.form("verify_code"))
if cstr(session("GetCode"))<>cstr(Code) then
Response.Write("<script language=javascript>alert('请输入正确的认证码！');history.back()</script>")
response.end 
else
end if
end if
'------把新信息写进数据库-------------
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from zhuti"
rs.open sql,conn,3,2
rs.addnew
rs("title")=title
rs("content")=content
rs("image")=image
rs("name")=name
rs("rename")=name
rs("ip")=ip
rs.update
rs.close
Session("mcfgstime") = Now()
response.write"<SCRIPT language=JavaScript>alert('恭喜您！帖子发表成功');" 
response.write"javascript:location.replace('index.asp')</SCRIPT>" 

'------把回复信息写进数据库-------------
else
'------------判断验证码---------------
if Request.Cookies("mctb_name")="" then
Code1=trim(request.form("hf_code"))
if cstr(Session("GetCode1"))<>cstr(Code1) then
Response.Write("<script language=javascript>alert('请输入正确的验证码！');history.back()</script>")
response.end 
else
end if
end if
'------把回复信息写进数据库-------------
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from retitle"
rs.open sql,conn,3,2
rs.addnew
rs("rid")=rid
rs("content")=content
rs("image")=image
rs("name")=name
rs("ip")=ip
rs.update
rs.close
rs.Open "Select * From zhuti where id="&rid, conn,3,3  
rs("recount")=recount+1 
rs("rename")=name
rs("retime")=now()
rs.update
rs.close
Session("mcfgstime") = Now()
response.write"<SCRIPT language=JavaScript>alert('恭喜您！帖子回复成功');" 
response.write"javascript:location.replace('show.asp?id="&rid&"')</SCRIPT>" 
end if
%>