?? 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 + -