📄 hx33writewish.asp

📁 于毕业设计与论文以及做课题用-MSK Simulink simulation program for the design and graduation thesis topic, and makin
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="inc/function.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>新年许愿墙|2009年新年祝福-餐饮E站通</title>
<meta name="Keywords" content="<%=HX33_KeyWord%>" />
<meta name="Description" content="<%=HX33_Descrip%>" />
<style><!--@import url(inc/add.css);--></style>
<style><!--@import url(inc/layer.css);--></style>
<script type="text/javascript" src="inc/add.js"></script>
<script type="text/javascript" src="inc/common.js"></script>
</head>
<%
Select Case request("cmd")
	Case "save"
		Call SaveLove()
End Select
Sub SaveLove() 
	If request("HX33_Sender")="" Or request("HX33_WishContent")="" Or request("key")="" Then 
  		response.write "<script type='text/javascript'>alert('含“*”项必填！');history.go(-1);</script>"
		response.End
	Else 
		Dim key,getcode
			key = Int(request("key"))
			getcode = Int(session("getcode"))
		If key <> getcode Then 
			response.write "<script type='text/javascript'>alert('验证码错误！');history.go(-1);</script>"
			response.End
		End If 
	End If
	Dim HX33_Sender,HX33_Picker,HX33_WishContent
		HX33_Sender = Trim(request("HX33_Sender"))
		HX33_Picker = Trim(request("HX33_Picker"))
		HX33_WishContent = Trim(request("HX33_WishContent"))
	If BadWord(HX33_Sender,Badwords) Or BadWord(HX33_Picker,Badwords) Or BadWord(HX33_WishContent,Badwords) Then
		response.write "<script type='text/javascript'>alert('请删除禁用词！');history.go(-1);</script>"
		response.End 
	End If

	Dim HX33_Icon,HX33_Face,HX33_WishIP,HX33_WishDate
		'HX33_Icon=ReplaceBadChar(request("HX33_Icon"))
		HX33_Icon=request("HX33_Icon")
		HX33_Face=ReplaceBadChar(request("HX33_Face"))
		HX33_Sender=ReplaceBadChar(HX33_Sender)
		HX33_SenderQQ=request("HX33_SenderQQ")
		if HX33_SenderQQ = "" or HX33_SenderQQ="QQ号码" then HX33_SenderQQ=0
		HX33_Picker=ReplaceBadChar(HX33_Picker)
		If HX33_Icon="" Then HX33_Icon="0"
		If HX33_Face="" Then HX33_Face="0"
		If HX33_Sender="" Then HX33_Sender="匿名"	
		If HX33_Picker="" Then HX33_Picker="&nbsp;"	
		HX33_WishContent=lFilterBadHTML(CutStr(HX33_WishContent,150),CheckString)
		HX33_WishIP=GetIP()
		HX33_ComeFrom=getFrom(HX33_WishIP)
		
		if HX33_ComeFrom = "" then
		HX33_ComeFrom=HX33_WishIP
		end if
		
		HX33_WishDate=Now()
	Dim sql,rs,HX33_WishID
		sql="Select * From [HX33_LoveWallPosts]"
	Set rs=server.CreateObject("adodb.recordset")
	rs.open sql,conn,1,3	
	rs.addnew
	rs("HX33_WishContent")=HX33_WishContent
	rs("HX33_Sender")=HX33_Sender
	rs("HX33_Picker")=HX33_Picker
	rs("HX33_SenderQQ")=HX33_SenderQQ
	rs("HX33_WishIP")=HX33_WishIP
	rs("HX33_WishDate")=HX33_WishDate
	rs("HX33_Icon")=HX33_Icon
	rs("HX33_Face")=HX33_Face
	rs("HX33_ComeFrom")=HX33_ComeFrom
	rs.update
	HX33_WishID=rs("HX33_WishID")
	rs.close
	Set rs = Nothing
	conn.close		
	Set Conn = Nothing
	response.write "<script type='text/javascript'>alert('发表字条成功！\n你的爱墙号是："&HX33_WishID&"  ');location.href='Default.asp?HX33_WishID="&HX33_WishID&"';</script>"
End Sub
%>
<body>
<!--#include file="HX33_Top.asp" -->

<div id="mainList">
	<table width="750" border="0" cellspacing="1" cellpadding="0" class="StepTable">
		<form method="post" action="" name="frmAdd">
			<input type="hidden" name="HX33_Face" value="0" />
			<input type="hidden" name="HX33_Icon" value="romantic/romantic_0.gif" />
			<input type="hidden" name="cmd" value="save" />
		<tr>
			<td colspan="2" class="Step">↓↓↓请把本站告诉你QQ上的5位好友</td>
		</tr>
		<tr>
			<th>祝福对象：</th>
			<td><input name="HX33_Picker" type="text" size="15" maxlength="10" value=""   onkeyup="javascript:InputName(this,'Head');" /></td>
		</tr>
		<tr>
			<th>您的姓名：</th>
			<td><input name="HX33_Sender" type="text" size="15" maxlength="10" onkeyup="javascript:InputName(this,'Sign');" value="匿名" onclick="if(this.value =='匿名') this.value=''; "/>  <span class="red">*</span></td>
		</tr>
		<tr>
			<th>您的QQ号码：</th>
			<td><input name="HX33_SenderQQ" type="text" size="15" maxlength="10" value="QQ号码" onclick="if(this.value =='QQ号码') this.value=''; " onpaste="var s=clipboardData.getData('text'); if(!/\D/.test(s))value=s.replace(/^0*/,''); return false;" onKeyUp="if(/(^0+)/.test(value))value=value.replace(/^0*/, '')" onKeyPress="return event.keyCode>=48 && event.keyCode<=57;"/>  </td>
		</tr>
		<tr>
			<th>字条内容：</th>
			<td><textarea name="HX33_WishContent" cols="60" rows="4" onkeyup="javascript:strCounter(this);" onchange="javascript:strCounter(this);"></textarea> <span class="red">*</span><br />还可以输入<span class="Char" id="Char"> 70 </span>个字，不支持恶意html语法。</td>		
		</tr>
		<tr>
			<th>选择字条颜色：</th>
			<td>
				<span class="colorBlock0" onclick="FaceChoose('0')"></span>
				<span class="colorBlock1" onclick="FaceChoose('1')"></span>
				<span class="colorBlock2" onclick="FaceChoose('2')"></span>
				<span class="colorBlock3" onclick="FaceChoose('3')"></span>
				<span class="colorBlock4" onclick="FaceChoose('4')"></span>
				<span class="colorBlock5" onclick="FaceChoose('5')"></span>
			</td>
		</tr>
		<tr>
			<th>选择心情图案：</th>
			<td>
			<table>
			<tr><td>心情图案类别：<a style="cursor:hand;" onclick="changeIconTeam(4)">好心情</a> <a style="cursor:hand;" onclick="changeIconTeam(1)">浪漫</a> <a style="cursor:hand;" onclick="changeIconTeam(3)">朋友</a> <a style="cursor:hand;" onclick="changeIconTeam(2)">可爱</a> <a style="cursor:hand;" onclick="changeIconTeam(0)">其他</a></td></tr>
			<tr><td>
<%dim i%>
<div id="icon0" style="display:none;">
<%for i=0 to 23%>
<img class="iconBox" src="images/icon/other/other_<%=i%>.gif" onclick="javascript:IconChange('other','<%=i%>.gif');" />
<%next%>
</div>

<div id="icon1" style="display:inline;">
<%for i=0 to 29%>
<img class="iconBox" src="images/icon/romantic/romantic_<%=i%>.gif" onclick="javascript:IconChange('romantic','<%=i%>.gif');" />
<%next%>
</div>

<div id="icon2" style="display:none;">
<%for i=0 to 25%>
<img class="iconBox" src="images/icon/lovely/lovely_<%=i%>.gif" onclick="javascript:IconChange('lovely','<%=i%>.gif');" />
<%next%>
</div>

<div id="icon3" style="display:none;">
<%for i=0 to 11%>
<img class="iconBox" src="images/icon/friend/friend_<%=i%>.gif" onclick="javascript:IconChange('friend','<%=i%>.gif');" />
<%next%>
</div>

<div id="icon4" style="display:none;">
<%for i=0 to 11%>
<img class="iconBox" src="images/icon/fine/fine_<%=i%>.gif" onclick="javascript:IconChange('fine','<%=i%>.gif');" />
<%next%>
</div>
			
			</td></tr></table>
			</td>
		</tr>
		<tr>
			<th>验证码：</th>
			<td><input name="key" type="text" value="" size="6" maxlength="4" onfocus="this.value='';" onpaste="var s=clipboardData.getData('text'); if(!/\D/.test(s))value=s.replace(/^0*/,''); return false;" onKeyUp="if(/(^0+)/.test(value))value=value.replace(/^0*/, '')" onKeyPress="return event.keyCode>=48 && event.keyCode<=57;" /> <span class="red">*</span> 请输入右边数字：<img src="inc/getcode.asp" /></td>
		</tr>
		<tr>
			<th>操作：</th>
			<td><input name="image" type="image" src="images/btn_next.gif" /></td>
		</tr>
		</form>
	</table>

	<div id="Peview">
		<div id="infoAD">
			<p><strong>华夏爱墙声明：</strong><br />您发布字条即表示同意遵守以下条款：<br />一、不得利用本站危害国家安全、泄露国家秘密，不得侵犯国家、社会、集体和公民的合法权益；<br />二、不得发布国家法律、法规明令禁止的内容；互相尊重，对自己在本站的言论和行为负责；<br />三、本站对您所发布内容拥有处置权。</p>
		</div>
		<div id="Message" class="Style0">
			<p class="Num">字条预览：<img src="images/close.gif" alt="关闭" /></p>
			<p class="Detail"><img src="images/icon/romantic/romantic_0.gif" width="50" height="50" id="IconImg" /><span class="Head" id="Head"></span><br /><span id="AreaText"></span></p>
			<p class="Sign" id="Sign">匿名</p>
			<p class="Date"><script type="text/javascript">getTime()</script></p>
		</div>	
	</div>
	<div style="clear:both;"></div>
</div>

<div id="footer">
<!--#include file="foot.asp" -->
</div>
</body>
</html>
⌨️ 快捷键说明

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