addok.asp

来自「一套比较完整的内部技术支持全部源代码,请大家共同分享」· ASP 代码 · 共 30 行

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/lyb.asp" -->
<%
set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_lyb_STRING
rs.Source = "SELECT * FROM lyb"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 3
rs.Open()
%>
<%
rs.addnew()
rs("name")=request.form("name")
rs("face")=request.form("face")
rs("con")=server.htmlencode(request.form("con"))
rs("itip")=Request.ServerVariables("REMOTE_ADDR")
rs("email")=request.form("email")
rs("homepage")=request.form("homepage")
rs("qq")=request.form("qq")
rs.update
%>
<link rel="stylesheet" href="css/lyb.css" type="text/css">
<meta http-equiv="refresh" content="3;URL=index.asp">
<p>谢谢您的留言!</p>
<p>3秒钟自动返回留言簿<a href="index.asp">首页</a></p>
<%
rs.Close()
%>