📄 lyb.asp
字号:
<%
'''''''########################################################
'''''''# 精点留言本 V1.02 #
'''''''# 游泳的鱼(mabus)写的第一个留言本 #
'''''''# 有代码笔记说明,初学者学习ASP首选 #
'''''''# 本程序只有一页index.asp : 程序免费使用 #
'''''''# 由于用作练习,所以里面还有很多没用的代码没删除 #
'''''''# 使用DW MX2004 + Editplus 进行编写 #
'''''''# 留意官方补丁,精点一百 http://www.jd100.net/ #
'''''''# #
'''''''#################################################
dim page,indexfilename,indeximg,db,n,x,bookbg,txt,jd100_top,jd100_foot,m '定义变量
'######################初始化设置,开始##############
'indexfilename=right(Request.ServerVariables("PATH_TRANSLATED"),(len(Request.ServerVariables("PATH_TRANSLATED"))-instrRev(Request.ServerVariables("PATH_TRANSLATED"),"\"))) '得到文件名,当取消下一行时用这行
indexfilename="lyb.asp" '留言本首页文件,注意请与文件名相同
imdeximg="img/" '图片文件夹,更改图片文件夹后,请改这里,后面一定加"/"
db="jd100#jd%100.asp" '数据库咱路径 ,建议名字中加#号,后辍改为.ASP ,放到其它目录下
'连接数据库
set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
n=10 '每页显示留言数
x=5 '每页显示的页数 << 1 2 3 4 5 >>
m=11 '留言头像可选个数,男性头像为1字头 + 两位数字命名的gif图片，如男101.gif ,女001.gif ，可按顺序增加头像图片到图片文件夹
bookbg="bookbg.gif" '背景图片,当不使用背景图时,保持为空 ""
txt=100 '留言的最大字数,版主回复为无限大
jd100_top="<IMG src="&imdeximg&"welcome.gif>" '设置页头信息,这里可以加入你的LOGO图片
dim webtitle,webname,webyn,webgl,webyn2,view2
set rs1 = conn.execute("select * from admin")
webtitle=rs1("title")
if rs1("webname")<>"" then webname=rs1("webname")
if rs1("gbyn")<>"" then webyn=rs1("gbyn")
webgl=rs1("gl")
rs1.close
set rs1=nothing
'设置页脚信息,这里可以加入你的地址
jd100_foot="版权所有(C)："& webname &"<br>"& "本留言本言论纯属发表者个人意见，与 <font color=#CC0000>" & webname &" </font>立场无关"
'######################初始化设置,结束##############
page = Request.QueryString("page") '获得分页,Request.QueryString 是用来接收如 index.asp?page=1 等号后的值,可以简写为Request("page")
if page="" then page=1
page2 = Request.QueryString("k")
if page2="" then page2=1
action = Request.QueryString("action") 'ASP中也可以不定义变量就使用
action_e = Request.Form("action_e") ' Request.Form 是接收表单的值
'###################禁止外部提交数据
if action_e <>"" then
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
response.write "<br><br><center><table border=1 cellpadding=20 bordercolor=black bgcolor=#EEEEEE width=450>"
response.write "<tr><td style='font:9pt Verdana'>"
response.write "你提交的路径有误，禁止从站点外部提交数据请不要乱该参数！"
response.write "</td></tr></table></center>"
response.end
end if
end if
%>
<html>
<head>
<title><%=webname%></title>
<meta name="keywords" content="留言">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="gbstyle.css" type="text/css">
<style type="text/css">
<!--
.unnamed1 {
font-size: 12px;
line-height: 18px;
}
form {margin-bottom:0;margin-top:0}
.style1 {
color: #990000;
font-weight: bold;
}
.unnamed2 {
font-size: 14px;
line-height: 24px;
}
-->
</style>
</head>
<script language="JavaScript">
//这是限制文本输入数量的JSP函数,请查找 gbcount 在下面可以看到如何调用
function gbcount(message,total,used,remain)
{
var max;
max = total.value;
if (message.value.length > max) {
message.value = message.value.substring(0,max);
used.value = max;
remain.value = 0;
alert("留言不能超过 <%=txt%> 个字!");
}
else {
used.value = message.value.length;
remain.value = max - used.value;
}
}
</script>
<% if bookbg="" then '背景图片有无判断
bookbg="background="& imdeximg & bookbg
else
bookbg=""
end if %>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" height="51" border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td height="49" valign="top" <%=bookbg%>>
<div align="center">
<CENTER>
<%=jd100_top%>
</CENTER>
</div></td>
</tr>
</table>
<table width="100%" height="507" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" >
<tr>
<td height="147" align="center" valign="top" <%=bookbg%>>
<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'主程序
Select Case action_e
Case ""
Case "Add_New"
Call Add_New_Execute()
Case "reply"
Call Reply_Execute()
Case "admin"
Call Admin_Login_Execute()
Case "EditPWD"
Call EditPWD_Execute()
Case "Edit"
Call Edit_Execute()
Case "Edit_web"
Call Edit_web()
End Select
Call Main_Menu()
Select Case action
Case "UbbHelp"
Call UbbHelp()
Case "Admin_Login"
Call Admin_Login()
Case "Exit"
Call Exit_Admin()
Call View_Words()
Case ""
Call View_Words()
Case "Add_New"
Call Add_New()
Case "reply"
Call Reply()
Case "View_Words"
Call View_Words()
Case "Delete"
Call Delete()
Call View_Words()
Case "EditPWD"
Call EditPWD()
Case "Edit"
Call Edit()
Case "Edit_web"
Call Edit_web()
End Select
%></td>
</tr>
</table>
<table width="100%" height="28" border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td height="100%" valign="top" bgcolor="#FFFFFF"><table align=center cellpadding=0 cellspacing=0>
<tr>
<td width="760" ></td>
</tr>
<tr>
<td class="footline"></td>
</tr>
<tr align=center height=60 style="line-height:130%">
<td> <span class="unnamed1">
<%=jd100_foot%>
</span><br>
<table width="594" border=0 align=center cellPadding=0 cellSpacing=0>
<tr>
<td width="571" align="center"><span class="unnamed1"> Copyright
(c) 2003-2004 <a href=http://www.jd100.net><font face=Verdana, Arial, Helvetica, sans-serif size=1><b>JD100<font color=#CC0000>.Net</font></b></font></a>.
jd100_lyb v1.02
程序编制：<a href=mailto:Webmaster@jd100.net>MABUS</a>
</span></td>
</tr>
</table></td>
</tr>
</table>
</td>
</tr>
</table>
<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'添加一条新留言
%>
<% Sub Add_New() %>
<table width="598" border="0" align="center" cellpadding="4" cellspacing="1">
<form name="form" method="post" action="<%=indexfilename%>">
<tr>
<td height="25" colspan="3" align="center"> <div align="center"><font size="3"><strong>留 言</strong></font><font color="#000000">
</font></div>
<img src="<%=imdeximg%>line.gif" width="500" height="1"> </td>
</tr>
<tr>
<td width="117" > <div align="right">姓名：</div></td>
<td width="297"> <input type="text" name="name" class="input1" size="20" maxLength=10>
*10个字内</td>
<!--onChange="document.getElementById('showimages').src = '<%=imdeximg%>'+ this.value + '.gif'">-->
<script>
function showimage(){document.images.showimages.src="<%=imdeximg%>"+document.form.sex.options[document.form.sex.selectedIndex].value+""+document.form.img.options[document.form.img.selectedIndex].value+".gif";}
</script>
<td width="156">选择头像:
<select name="img" size="1" onChange="showimage()">
<% if m>99 then m=99
for i=1 to m
g=""
g=i
if len(i)<2 then g="0"&i
%>
<option value='<%=g%>'><%=g%></option>
<% next %>
</select>
</td>
</tr>
<tr>
<td align="right"> 性别： </td>
<td>
<select name="sex" size="1" onChange="showimage()">
<option value="1">男</option>
<option value="0">女</option>
</select>
</td>
<td rowspan="5">
<img src="<%=imdeximg%>101.gif" name=showimages id="showimages">
</td>
</tr>
<tr>
<td align="right">QQ：</td>
<td><input name="qq" type="text" class="input1" id="qq" size="35" maxLength=25></td>
</tr>
<tr>
<td align="right">主页： </td>
<td> <input name="web" type="text" class="input1" value="http://" size="35" maxLength=50> </td>
</tr>
<tr>
<td align="right">来自：</td>
<td><input name="come" type="text" class="input1" id="come" size="35"></td>
</tr>
<tr>
<td align="right"> 电子邮箱： </td>
<td> <input name="email" type="text" class="input1" value="@" size="35" maxLength=50>
* </td>
</tr>
<tr>
<td align="right" valign="top">
<script language="JavaScript">
//UBB
var Quote = 0;
var Bold = 0;
var Italic = 0;
var Underline = 0;
var Code = 0;
var Center = 0;
var Strike = 0;
var Sound = 0;
var Swf = 0;
var Ra = 0;
var Rm = 0;
var Marquee = 0;
var Fly = 0;
var fanzi=0;
var text_enter_url = "请输入连接网址";
var text_enter_txt = "请输入连接说明";
var text_enter_image = "请输入图片网址";
var text_enter_sound = "请输入声音文件网址";
var text_enter_swf = "请输入FLASH动画网址";
var text_enter_ra = "请输入Real音乐相对路径";
var text_enter_rm = "请输入Real影片相对路径";
var text_enter_wmv = "请输入Media影片相对路径";
var text_enter_wma = "请输入Media音乐相对路径";
var text_enter_mov = "请输入QuickTime音乐网址";
var text_enter_sw = "请输入shockwave音乐网址";
var text_enter_email = "请输入邮件网址";
var error_no_url = "您必须输入网址";
var error_no_txt = "您必须连接说明";
var error_no_title = "您必须输入首页标题";
var error_no_email = "您必须输入邮件网址";
var error_no_gset = "必须正确按照各式输入！";
var error_no_gtxt = "必须输入文字！";
var text_enter_guang1 = "文字的长度、颜色和边界大小";
var text_enter_guang2 = "要产生效果的文字！";
function commentWrite(NewCode) {
document.form1.words.value+=NewCode;
document.form1.words.focus();
return;
}
function storeCaret(text) {
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -