⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 add.asp

📁 红色的格调
💻 ASP
字号:
<html>
<head>
<title>添加成功 - 圣诞许愿树--亿网论坛bbs.vcew.com</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<STYLE type=text/css>

.bg2 {
	BACKGROUND-COLOR: #f3fdff; BACKGROUND-REPEAT: no-repeat; BORDER-BOTTOM: #cfedf7 1px solid; BORDER-LEFT: #cfedf7 1px solid; BORDER-RIGHT: #cfedf7 1px solid; BORDER-TOP: #cfedf7 1px solid; COLOR: #4b4b4b; FONT-SIZE: 12px;overflow:auto
}

</STYLE>
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="5">
<script language="javascript">
function doCopy()
	{
		codeform.dizhi.select();
		rgn = codeform.dizhi.createTextRange();
		rgn.execCommand("Copy");
	}
</script>
<%
	'************add.asp************
        On Error Resume Next
	a_ip=request.servervariables("REMOTE_HOST")
	a_name = trim(Request("name"))						'取得表单姓名
	a_name2= trim(Request("name2"))
	a_from01 = trim(Request("from01"))
	a_oicq = trim(Request("oicq"))
	a_yemian = trim(Request("yemian"))
	a_memo = trim(Request("memo"))					' 取得愿望内容
	a_memo = Server.HTMLEncode(Request("memo"))
	a_memo = Replace( a_memo, vbCrLf, "<br>")
	a_memo = Replace( a_memo, "'", "''")
        session("name")=a_name
        chenggong=2
%>
<!--#include file="conn.asp"-->
<!--#include file="nk.asp"-->
<!--#include file="guolv.asp"-->
<%
	SQLcmd = "Insert Into wish(name,memo,name2,from01,oicq,addtime,ip,yemian) Values"
	SQLcmd = SQLcmd & "('" & a_name & "','" & a_memo & "','" & a_name2 & "','" & a_from01 & "','" & a_oicq & "',now,'" & a_ip & "','" & a_yemian & "')"
        
	newconn.Execute SQLcmd
       sqlcmd="select * from wish Order By id Desc"
	rs.Open sqlcmd,newconn,1,2

        response.write "<table width='100%' border=0 cellspacing=0 cellpadding=0 height='100%'><tr><td>"
	response.write "<br><br><table width=400 border=1 cellspacing=2 cellpadding=2 align=center bordercolorlight=7285CF bordercolordark=7285CF height=90 bgcolor=F2F2F2>"
	response.write "<tr bordercolor=F2F2F2 bgcolor=F2F2F2 align=center> "
	response.write "<td>添加成功!</td>"
	response.write "</tr>"
	response.write "<tr bordercolor=F2F2F2 bgcolor=F2F2F2 align=center> "
	response.write "<td>您的祝福已经成功加入数据库!<a href=zhufu.asp?id="&rs("id")&"&y="&rs("yemian")&" target=_blank title=联系"&rs("name")&":"&rs("oicq")&"><b>点这里查看</b></a></td>"
	response.write "</tr><FORM name=codeform action='' method=post>"
response.write "<tr bordercolor=F2F2F2 bgcolor=F2F2F2 align=center> "

	response.write "<td><textarea name=dizhi cols='50' rows='1' class=bg2 readonly>http://bbs.vcew.com/wish/zhufu.asp?id="& rs("id")&"&y="&a_yemian&"</textarea></td>"
	response.write "</tr>"
response.write "<tr bordercolor=F2F2F2 bgcolor=F2F2F2 align=center> "
	response.write "<td><INPUT name='fcopybtn' class='button'  type='button' value=' 复制到剪贴板 ' onClick='javascript:doCopy();'></td>"
	response.write "</tr>"
response.write "<tr bordercolor=F2F2F2 bgcolor=F2F2F2 align=center> "
	response.write "<td><a href=index.asp><b>返回首页</b></a></td>"
	response.write "</tr>"
	response.write "</table>"
	response.write "</td></tr></table></FORM>"
	'Response.Redirect "index.asp"
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -