📄 write.asp
字号:
<!--#include file="articleconn.asp"-->
<!--#include file="home1.asp"-->
<%
'叛断Session变量是否超时
if isempty(session("u_id")) or session("u_id")="" then
send_name=""
send_mail=""
recv_name=""
recv_mail=""
else
'叛断此用户是否已经注册
Set conn1 = Server.CreateObject("ADODB.Connection")
DBPath1 = Server.MapPath("../isi/xlist.asp")
conn1.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1
Set rs_lar = Server.CreateObject("ADODB.Recordset")
sql="select * from larchives where user_id =" & session("u_id")
rs_lar.open sql,conn1,3,2
if rs_lar.eof and rs_lar.bof then
send_name=""
send_mail=""
recv_name=""
recv_mail=""
else
send_name=rs_lar("netname")
send_mail=rs_lar("email")
if isempty(request("youid")) or request("youid")="" then
recv_name=""
recv_mail=""
else
rs_lar.close
sql="select * from larchives where user_id =" & request("youid")
rs_lar.open sql,conn1,3,2
if rs_lar.eof and rs_lar.bof then
recv_name=""
recv_mail=""
else
recv_name=rs_lar("netname")
recv_mail=rs_lar("email")
end if
end if
end if
rs_lar.close
end if
%>
<html>
<%
response.buffer=false
dim sql
dim rs
dim t_id,typeid
typeid=0
t_id=request("id")
set rs=server.createobject("adodb.recordset")
sql="update learning set hits=hits+1 where articleID="&t_id
rs.open sql,conn,1,1
rs.close
%>
<!--#include file="inc/part_1.asp"-->
<script languange="JAVASCRIPT">
<!--
function validEmail(email) {
invalidChars = " /:;"
if (email == "") {
return false
}
for (i=0; i<invalidChars.length; i++) {
badChar = invalidChars.charAt(i)
if (email.indexOf(badChar,0) != -1) {
return false
}
}
atPos = email.indexOf("@",1)
if (atPos == -1) {
return false
}
periodPos = email.indexOf(".",atPos)
if (periodPos == -1) {
return false
}
if (periodPos+3 > email.length) {
return false
}
return true
}
function submitIt(form) {
if (!validEmail(form.replyto.value) &&
!validEmail(form.mail.value) ||
!validEmail(form.replyto.value) ||
!validEmail(form.mail.value)) {
alert("请检查一下您的电子邮件地址。")
if (!validEmail(form.replyto.value) &&
!validEmail(form.mail.value)) {
form.mail.focus()
form.mail.select() }
else {
if (!validEmail(form.mail.value)) {
form.mail.focus()
form.mail.select()
}
else {
if (!validEmail(form.replyto.value)) {
form.replyto.focus()
form.replyto.select()
}
}
}
return false
}
return true
}
function playSound(formObj)
{
musicName =
formObj.midifile.options[formObj.midifile.selectedIndex].value;
if (musicName != "不要音乐")
{
window.location=musicName;
}
}
-->
</script>
<!--#include file="home.asp"-->
<% conn.close
set conn=nothing
%>
<!--#include file="inc/part_2.asp"-->
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td>
<form action="addcard.asp?id=<%=t_id%>" method="post" name="pick" onsubmit="return submitIt(this)">
<p align="left"> 左边栏目必须填写，右边栏目可以不选 </p>
<table border="0" width="100%" cellpadding="0" cellspacing="2">
<tr>
<td width="43%" height="17"><font color="#FF0080"></font>填写贺卡标题（如：节日快乐等）</td>
<td width="64%" height="17"> <strong></strong>选择背景音乐： </td>
</tr>
<tr>
<td width="43%" height="27">
<input type="text" size="32" maxlength="20" name="titletext" class="put"> </td>
<td width="64%" height="27">
<select name="midifile" size="1" class="put">
<option value>不要音乐</option>
<option value="music/titanic.mid">铁达尼号</option>
<option
value="music/goodlady.mid">卿本佳人</option>
<option
value="music/godfather.mid">教父</option>
<option
value="music/docryforme.mid">别为我哭泣</option>
<option
value="music/iwillfollowhim.mid">修女也疯狂</option>
<option
value="music/flyover.mid">飞越比佛利</option>
<option
value="music/tearsea.mid">泪海</option>
<option
value="music/sunairport.mid">日光机场</option>
</select> <input type="button" value="听听效果" onclick="playSound(document.pick)" class="put1"></td>
</tr>
<tr>
<td width="43%" height="15"><font color="#FF0080"></font>收卡人的姓名：</td>
<td width="64%" height="15"> <font color="#808000"></font>选择屏幕背景颜色：</td>
</tr>
<tr>
<td width="43%" height="25"><input type="text" size="32" maxlength="60" name="toname" value="<%=recv_name%>" class="put"></td>
<td width="58%" rowspan="3" height="27">
<table cellpadding="0" cellspacing="0" border="0" width="304">
<tr>
<td width="38"><font color="#000000">▉</font><input type="radio"
name="bgcolor" value="800000"> </td>
<td width="38"><font color="#800000">▉</font><input type="radio" name="bgcolor"
value="800000"> </td>
<td width="38"><font color="#00FF00">▉</font><input type="radio" name="bgcolor"
value="00FF00"> </td>
<td width="38"><font color="#FFD700">▉</font><input type="radio" name="bgcolor"
value="FFD700"> </td>
<td width="38"><font color="#808000">▉</font><input type="radio" name="bgcolor"
value="808000"> </td>
<td width="38"><font color="#808080">▉</font><input type="radio" name="bgcolor"
value="808080"> </td>
<td width="38"><font color="#800080">▉</font><input type="radio" name="bgcolor"
value="800080"></td>
<td width="38"><font color="#A52A2A">▉</font><input type="radio" name="bgcolor"
value="A52A2A"> </td>
</tr>
<tr>
<td width="38"><font color="#EE82EE">▉</font><input type="radio" name="bgcolor"
value="EE82EE"> </td>
<td width="38"><font color="#F0E68C">▉</font><input type="radio" name="bgcolor"
value="F0E68C">
</td>
<td width="38"><font color="#FFFF00">▉</font><input type="radio" name="bgcolor"
value="FFFF00"> </td>
<td width="38"><font color="#008000">▉</font><input type="radio" name="bgcolor"
value="008000"> </td>
<td width="38"><font color="#9ACD32">▉</font><input type="radio" name="bgcolor"
value="9ACD32"> </td>
<td width="38"><font color="#D2B48C">▉</font><input type="radio" name="bgcolor"
value="D2B48C"> </td>
<td width="38"><font color="#C0C0C0">▉</font><input type="radio" name="bgcolor"
value="C0C0C0"> </td>
<td width="38"><font color="#FF0000">▉</font><input type="radio" name="bgcolor"
value="FF0000"> </td>
</tr>
<tr>
<td width="38"><font color="#0000FF">▉</font><input type="radio" name="bgcolor"
value="0000FF"> </td>
<td width="38"><font color="#00BFFF">▉</font><input type="radio" name="bgcolor"
value="00BFFF"> </td>
<td width="38"><font color="#1E90FF">▉</font><input type="radio" name="bgcolor"
value="1E90FF"></td>
<td width="38"><font color="#000080">▉</font><input type="radio" name="bgcolor"
value="000080"> </td>
<td width="38"><font color="#191970">▉</font><input type="radio" name="bgcolor"
value="191970"> </td>
<td width="38"><font color="#ffffff">▉</font><input type="radio" checked name="bgcolor"
value="FFFFFF"> </td>
<td width="38"><font color="#FF00FF">▉</font><input type="radio" name="bgcolor"
value="FF00FF"> </td>
<td width="38"><font color="#FFA500">▉</font><input type="radio" name="bgcolor"
value="FFA500"> </td>
</tr>
</table></td>
</tr>
<tr>
<td width="43%" height="15"><font color="#FF0080"></font>收卡人的电子邮件：</td>
</tr>
<tr>
<td width="43%" height="1"><input type="text" size="32" maxlength="60" name="mail" value="<%=recv_mail%>" class="put"></td>
</tr>
<tr>
<td width="43%" height="15"><font color="#FF0080"></font>您的大名：</td>
<td width="64%" height="15"><font color="#808000"></font>选择文字颜色：</td>
</tr>
<tr>
<td width="43%" height="25"><input type="text" size="32" maxlength="60" name="myname" value="<%=send_name%>" class="put"></td>
<td width="64%" rowspan="3" height="73">
<table cellpadding="0" cellspacing="0" border="0" width="304">
<tr>
<td width="38"><font
color="#000000">▉</font><input type="radio" checked name="textcolor" value="08001"> </td>
<td width="38"><font color="#800000">▉</font><input type="radio" name="textcolor"
value="800000"> </td>
<td width="38"><font color="#00FF00">▉</font><input type="radio" name="textcolor"
value="00FF00"> </td>
<td width="38"><font color="#FFD700">▉</font><input type="radio" name="textcolor"
value="FFD700"> </td>
<td width="38"><font color="#808000">▉</font><input type="radio" name="textcolor"
value="808000"> </td>
<td width="38"><font color="#808080">▉</font><input type="radio" name="textcolor"
value="808080"> </td>
<td width="38"><font color="#800080">▉</font><input type="radio" name="textcolor"
value="800080"> </td>
<td width="38"><font color="#A52A2A">▉</font><input type="radio" name="textcolor"
value="A52A2A"> </td>
</tr>
<tr>
<td width="38"><font color="#EE82EE">▉</font><input type="radio" name="textcolor"
value="EE82EE"> </td>
<td width="38"><font color="#F0E68C">▉</font><input type="radio" name="textcolor"
value="F0E68C">
</td>
<td width="38"><font color="#FFFF00">▉</font><input type="radio" name="textcolor"
value="FFFF00"> </td>
<td width="38"><font color="#008000">▉</font><input type="radio" name="textcolor"
value="008000"> </td>
<td width="38"><font color="#9ACD32">▉</font><input type="radio" name="textcolor"
value="9ACD32"> </td>
<td width="38"><font color="#D2B48C">▉</font><input type="radio" name="textcolor"
value="D2B48C"> </td>
<td width="38"><font color="#C0C0C0">▉</font><input type="radio" name="textcolor"
value="C0C0C0"> </td>
<td width="38"><font color="#FF0000">▉</font><input type="radio" name="textcolor"
value="FF0000"> </td>
</tr>
<tr>
<td width="38"><font color="#0000FF">▉</font><input type="radio" name="textcolor"
value="0000FF"> </td>
<td width="38"><font color="#00BFFF">▉</font><input type="radio" name="textcolor"
value="00BFFF"> </td>
<td width="38"><font color="#1E90FF">▉</font><input type="radio" name="textcolor"
value="1E90FF"> </td>
<td width="38"><font color="#000080">▉</font><input type="radio" name="textcolor"
value="000080"> </td>
<td width="38"><font color="#191970">▉</font><input type="radio" name="textcolor"
value="191970"> </td>
<td width="38"><font color="#ffffff">▉</font><input type="radio" name="textcolor"
value="FFFFFF"> </td>
<td width="38"><font color="#FF00FF">▉</font><input type="radio" name="textcolor"
value="FF00FF"> </td>
<td width="38"><font color="#FFA500">▉</font><input type="radio" name="textcolor"
value="FFA500"> </td>
</tr>
</table> </td>
</tr>
<tr>
<td width="43%" height="15"><font color="#FF0080"></font>您的电子邮件：</td>
</tr>
<tr>
<td width="43%" height="25"><input type="text" size="32" maxlength="60" name="replyto" value="<%=send_mail%>" class="put"></td>
</tr>
<tr>
<td width="50%" height="15"><font color="#FF0080"></font>您的祝福语：</td>
<td width="57%" height="15"><font color="#808000"></font>选择贺卡背景图案：</td>
</tr>
<tr>
<td width="50%" valign="top" height="195"><textarea name="message" rows="5" cols="31" class="put"></textarea> </td>
<td width="57%" height="195">
<table bgcolor="#FFFFFF" width="100%" height="142" border="0" cellspacing="0">
<tr>
<td align="center" width="24%" ><img
src="back\backimg1.gif" width="60" height="60"><br>
<input type="radio" checked name="background"
value="back\backimg1.gif">
</td>
<td align="center" width="25%" ><img
src="back\backimg2.gif" width="64" height="64"><br>
<input type="radio" name="background"
value="back\backimg2.gif">
</td>
<td align="center" width="25%" ><img
src="back\backimg3.gif" width="60" height="60"><br>
<input type="radio" name="background"
value="back\backimg3.gif">
</td>
<td align="center" width="25%" ><img
src="back\backimg5.gif" width="60" height="60"><br>
<input type="radio" name="background"
value="back\backimg5.gif">
</td>
</tr>
<tr>
<td align="center" width="24%" height="58" ><img
src="back\backimg6.jpg" width="64" height="64"><br>
<input type="radio" name="background"
value="back\backimg6.jpg">
</td>
<td align="center" width="25%" height="58" ><img
src="back\backimg7.gif" width="60" height="60"><br>
<input type="radio" name="background"
value="back\backimg7.gif">
</td>
<td align="center" width="25%" height="58" ><img
src="back\backimg8.gif" width="60" height="60"><br>
<input type="radio" name="background"
value="back\backimg8.gif">
</td>
<td align="center" width="25%" height="58" ><img
src="back\backimg10.gif" width="60" height="60"><br>
<input type="radio" name="background"
value="back\backimg10.gif">
</td>
</tr>
</table>
</td>
</tr>
</table>
<p align="center">选择预览或发送：
<input type="radio" checked name="method" value="preview_card"> 预览 <input type="radio" name="method" value="send_card"> 发送 </p>
<p align="center"><input type="submit" value="确定" class="put1">
<input type="reset" value="重写" class="put1"> </p>
</form>
</td>
</tr>
</table>
<!--#include file="inc/part_3.asp"-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -