★★★★★★★★★【關於網頁製作】★★★★★★★★★
****************************************************
*∶姓名：________ ∶*
*∶性別：________ ∶*
*∶職業：___________________ ∶*
*∶愛好：________________________________________∶*
****************************************************
>>>>>>>>>>>>>>>>>>>>>>>>>>>向上滾動的文字-------中間加指引文字：
<script language=JavaScript>
<!--//
var version = "other"
browserName = navigator.appName;
browserVer = parseInt(navigator.appVersion);
if (browserName == "Netscape" && browserVer >= 3) version = "n3";
else if (browserName == "Netscape" && browserVer < 3) version = "n2";
else if (browserName == "Microsoft Internet Explorer" && browserVer >= 4) version = "e4";
else if (browserName == "Microsoft Internet Explorer" && browserVer < 4) version = "e3";
function marquee1()
{
if (version == "e4")
{
document.write("<marquee behavior=scroll direction=up width=100% height=120px scrollamount=1 scrolldelay=70 οnmοuseοver='this.stop()' οnmοuseοut='this.start()'>") //調節字幕的高度和寬度
}
}
function marquee2()
{
if (version == "e4")
{
document.write("</marquee>")
}
}
-->
</script>
<script language=JavaScript>marquee1();</script>
</p>
</div>
<p><font style="FONT-SIZE: 9pt; FONT-FAMILY: 宋體"
color=red>[供] <a href="textfile/xxkd1.txt" target="_blank">我國將舉辦國際運輸及物流博覽會</a></font></p>
<p><font style="FONT-SIZE: 9pt; FONT-FAMILY: 宋體"
color=red>[供] <a href="textfile/xxkd2.txt" target="_blank">美國航空運輸業明年才能恢復元氣</a></font></p>
<p><font style="FONT-SIZE: 9pt; FONT-FAMILY: 宋體"
color=red>[供] <a href="textfile/xxkd3.txt" target="_blank">歐洲第三方物流前景可喜</a></font></p>
<p><font style="FONT-SIZE: 9pt; FONT-FAMILY: 宋體"
color=red> [供] <a href="textfile/xxkd4.txt" target="_blank">應對WTO：中國鐵路經營戰略應儘快轉變</a></font></p>
<p><font style="FONT-SIZE: 9pt; FONT-FAMILY: 宋體"
color=red>[供] <a href="textfile/xxkd5.txt" target="_blank">航空快遞企業第三方物流經營模式分析</a></font></p>
<p><font style="FONT-SIZE: 9pt; FONT-FAMILY: 宋體"
color=red>[求] <a href="textfile/xxkd6.txt" target="_blank">第三方物流：強健“體魄”爭雄市場
</a></font>
<script language=JavaScript>marquee2();</script>
>>>>>>>>>>>>>>>>>>>>>>>>向左滾動的文字-----中間加鏈接
<div align="center">
<table cellspacing=0 cellpadding=0 width=140 border=0 height="10"> // 調節字幕的寬度和高度
<tbody>
<tr>
<td width=100% height="9"> <font size="2"><marquee onMouseOver=this.stop()
onMouseOut=this.start() scrolldelay=200><a
target=_blank
href=""><font color="#FF0000">最新航空客貨服務信息</font></a>
<font color="#FF0000"><a target=_blank
href="">業務範圍覆蓋介紹</a> <a target=_blank
href="">某論壇在京展開有關中國物流業的發展的研討會</a> </font></font>
</tr>
</tbody>
</table>
</div>
>>>>>>>>>>>>>>>>>>>>>>>>彈出窗口------沒有菜單、工具欄、地址欄等... ...
<A name=che οnclick='window.open("page3.htm","basket","menubar=no,toolbar=no,location=no,directories=no,status=no,scrollbars=1,resizable=0,width=590,top=5,left=205,height=320")'
style="CURSOR: hand"><font class="main" color="#330066">溫州永中大衆</font></A>
>>>>>>>>>>>>>>>>>>>>>>>>在線編輯網頁
<SCRIPT LANGUAGE="JavaScript">
function checkDatabase() {
var Item = document.forms[0].searchfor.value.toLowerCase();
stats='toolbar=yes,location=yes,directories=yes,status=yes,menubar=yes,'
stats += 'scrollbars=yes,resizable=yes'
MsgBox = window.open ("","msgWindow",stats)
MsgBox.document.write ("<html><head><title>在線編輯頁效果</title></head><body>");
MsgBox.document.write (" "+Item+"");
MsgBox.document.write ("</body></html>");}</SCRIPT>
<body background="../images/bg.jpg">
<form method="POST" action="--WEBBOT-SELF--">
<p align="center"><font color="#008000">在下面的文本框上寫上代碼，按開始運行即可欣賞你的大作。</font>
<br><textarea rows="13" name="searchfor" cols="74"></textarea>
<p align="center">
<input type="button" value="開始運行" size=30 onClick="checkDatabase()" name="button"><input
type="reset" value="全部重寫" name="B2">
</p>
</form>
>>>>>>>>>>>>>>>>>>>>>>>跳轉菜單------ASP代碼實現...
<% If Request("Send") = Empty Then %>
<form method="POST" action="p5.asp">
<input type="HIDDEN" name="Send" value="TRUE">
<font face="隸書">請選擇所要轉向的網頁</font>
<select name="WebSite" size="1">
<option value="http://qvbhdnvto/dunhao/p1.asp">第一頁</option>
<option value="http://qvbhdnvto/dunhao/p2.asp">第二頁</option>
<option value="http://qvbhdnvto/dunhao/p3.asp">第三頁</option>
<option value="http://qvbhdnvto/dunhao/p4.asp">第四頁</option>
<option value="http://qvbhdnvto/dunhao/p5.asp">第五頁</option>
<option value="http://qvbhdnvto/dunhao/p6.asp">第六頁</option>
</select>
<input type="SUBMIT" value="GO" name="SUBMIT">
</form>
<% Else %>
<%
Dim WebSiteURL
'取得瀏覽者所選擇的站點網址
WebSiteURL = Request("WebSite")
'重新導向到瀏覽者所選擇的網站
Response.Redirect WebSiteURL
%>
<% End If %>
>>>>>>>>>>>>>>>刷新頁面
<a href="javascript:location.reload()" target="_self">刷新</a>
>>>>>>>>>>>>>>>>>>>>>>>用CSS改變鼠標樣式
關鍵字 解釋：
auto 自動改變樣式
crosshair 精確定位"+"
default 默認指針
hand 手形
move 移動
e-resize 箭頭朝右方
ne-resize 箭頭朝右上方
nw-resize 箭頭朝左上方
n-resize 箭頭朝上方
se-resize 箭頭朝右下方
sw-resize 箭頭朝左下方
s-resize 箭頭朝下方
w-resize 箭頭朝左方
text 文本"I"形
wait 等待
help 幫助
使用方法：在需要改變鼠標樣式的地方插入：style="cursor:關鍵字"
實例:_____________
>>>>>>>>>>>>>>>>>>>>>>>>>>去除鏈接的下劃線------並改變文字的顏色... [css實例]
_________________用在<head>...</head>間
<STYLE type=text/css>.main {
FONT-SIZE: 12px
}
.main1 {
FONT-SIZE: 14px
}
.main2 {
FONT-SIZE: 16px
}
.main3 {
FONT-SIZE: 7px
}
.main4 {
FONT-SIZE: 10px
}
A:link {
COLOR: #000000; TEXT-DECORATION: none
}
A:visited {
COLOR: #000000; TEXT-DECORATION: none
}
A:active {
COLOR: #ff0000; TEXT-DECORATION: none
}
A:hover {
COLOR: #aa0000; TEXT-DECORATION: underline
}
.downbor {
BORDER-BOTTOM: #ffd0a2 1px solid; BORDER-LEFT: black 0px solid; BORDER-RIGHT: black 0px solid; BORDER-TOP: black 0px solid
}
.downbor1 {
BORDER-BOTTOM: #ffffff 2px solid; BORDER-LEFT: black 0px solid; BORDER-RIGHT: black 0px solid; BORDER-TOP: black 0px solid
}
.mar {
MARGIN-BOTTOM: 10px
}
.mar1 {
MARGIN-BOTTOM: 10px; MARGIN-TOP: 10px
}
.mar2 {
MARGIN-BOTTOM: 0px; MARGIN-TOP: 0px
}
</STYLE>
>>>>>>>>>>>>>>>>>>>>>>>>>>顯示動態時鐘... ...
用在<head>...</head>間
<script language="vbscript">
<!--
settimeout"clock",1000
sub clock
d=year(date)
e=month(date)
f=day(date)
h=hour(now)
m=minute(now)
nowdate=""&d&"年"&e&"月"&f&"日"
nowd.innerhtml=nowdate
nowtime=""&H&"點"&m&"分"
nowt.innerhtml=nowtime
settimeout"clock",1000
end sub
-->
</script>
__________並在未了加上,即：</body>之前
<center id=nowd></center>
<center id=nowt></center>
>>>>>>>>>>>>>>>>>>>>>>>能顯示星期的動態時鐘... ...
<script language=JavaScript>
today=new Date();
function initArray(){
this.length=initArray.arguments.length
for(var i=0;i<this.length;i++)
this[i+1]=initArray.arguments[i] }
var d=new initArray(
"星期日",
"星期一",
"星期二",
"星期三",
"星期四",
"星期五",
"星期六");
document.write(
"<font color=##000000 style='font-size:9pt;font-family: 宋體'> ",
today.getYear(),"年",
today.getMonth()+1,"月",
today.getDate(),"日",
d[today.getDay()+1],
"</font>" );
</script>
>>>>>>>>>>>>>>>>>>>文字鏈接指引文字------示例:
<a title="Hi-Science公司" href="Hi-Science.htm" target="_blank">海賽思科技發展有限公司</a>
>>>>>>>>>>>>>>>>>>>>>定時自動關閉窗口...
<script LANGUAGE="JavaScript">
<!--
setTimeout('window.close();',20000); //這裏爲20秒後關閉
-->
</script>
>>>>>>>>>>>>>>>>>>>>關閉本窗口...
<script language="JavaScript">
function shutwin(){
window.close();
return;}
</script>
<a href="javascript:shutwin();"><font color="#FF0000">關閉本窗口</font></a>
>>>>>>>>>>>>>>>>>>>>>>>>>打印本頁...
<script language="Javascript">
function printit(){
if (NS) {
window.print() ;
} else {
var WebBrowser = '<OBJECT ID="WebBrowser1" WIDTH=0 HEIGHT=0 CLASSID="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2"></OBJECT>';
document.body.insertAdjacentHTML('beforeEnd', WebBrowser);
WebBrowser1.ExecWB(6, 2);//Use a 1 vs. a 2 for a prompting dialog box WebBrowser1.outerHTML = "";
}
}
</script>
<script language="Javascript">
var NS = (navigator.appName == "Netscape");
var VERSION = parseInt(navigator.appVersion);
if (VERSION > 3) {
document.write('<form><input class="unnamed" type=button value="打印本頁" name="Print" onClick="printit()"></form>');
}
</script>
>>>>>>>>>>>>>>>>>>>>>>層時鐘... ...
<SCRIPT LANGUAGE="JavaScript">
fCol = '000000';
sCol = 'ff0000';
mCol = '000000';
hCol = '000000';
H = '....';
H = H.split('');
M = '.....';
M = M.split('');
S = '......';
S = S.split('');
Ypos = 0;
Xpos = 0;
Ybase = 8;
Xbase = 8;
dots = 12;
ns = (document.layers)?1:0;
if (ns) {
dgts = '1 2 3 4 5 6 7 8 9 10 11 12';
dgts = dgts.split(' ');
for (i = 0; i < dots; i++) {
document.write('<layer name=nsDigits'+i+' top=0 left=0 height=30 width=30><center><font face=Arial,Verdana size=1 color='+fCol+'>'+dgts[i]+'</font></center></layer>');
}
for (i = 0; i < M.length; i++) {
document.write('<layer name=ny'+i+' top=0 left=0 bgcolor='+mCol+' clip="0,0,2,2"></layer>');
}
for (i = 0; i < H.length; i++) {
document.write('<layer name=nz'+i+' top=0 left=0 bgcolor='+hCol+' clip="0,0,2,2"></layer>');
}
for (i = 0; i < S.length; i++) {
document.write('<layer name=nx'+i+' top=0 left=0 bgcolor='+sCol+' clip="0,0,2,2"></layer>');
}
}
else {
document.write('<div style="position:absolute;top:0px;left:0px"><div style="position:relative">');
for (i = 1; i < dots+1; i++) {
document.write('<div id="ieDigits" style="position:absolute;top:0px;left:0px;width:30px;height:30px;font-family:Arial,Verdana;font-size:10px;color:'+fCol+';text-align:center;padding-top:10px">'+i+'</div>');
}
document.write('</div></div>')
document.write('<div style="position:absolute;top:0px;left:0px"><div style="position:relative">');
for (i = 0; i < M.length; i++) {
document.write('<div id=y style="position:absolute;width:2px;height:2px;font-size:2px;background:'+mCol+'"></div>');
}
document.write('</div></div>')
document.write('</div></div>')
document.write('<div style="position:absolute;top:0px;left:0px"><div style="position:relative">');
for (i = 0; i < H.length; i++) {
document.write('<div id=z style="position:absolute;width:2px;height:2px;font-size:2px;background:'+hCol+'"></div>');
}
document.write('</div></div>')
document.write('<div style="position:absolute;top:0px;left:0px"><div style="position:relative">');
for (i = 0; i < S.length; i++) {
document.write('<div id=x style="position:absolute;width:2px;height:2px;font-size:2px;background:'+sCol+'"></div>');
}
document.write('</div></div>')
}
function clock() {
time = new Date ();
secs = time.getSeconds();
sec = -1.57 + Math.PI * secs/30;
mins = time.getMinutes();
min = -1.57 + Math.PI * mins/30;
hr = time.getHours();
hrs = -1.57 + Math.PI * hr/6 + Math.PI*parseInt(time.getMinutes())/360;
if (ns) {
Ypos = window.pageYOffset+window.innerHeight-60;
Xpos = window.pageXOffset+window.innerWidth-80;
}
else {
Ypos = document.body.scrollTop + window.document.body.clientHeight - 60;
Xpos = document.body.scrollLeft + window.document.body.clientWidth - 60;
}
if (ns) {
for (i = 0; i < dots; ++i){
document.layers["nsDigits"+i].top = Ypos - 5 + 40 * Math.sin(-0.49+dots+i/1.9);
document.layers["nsDigits"+i].left = Xpos - 15 + 40 * Math.cos(-0.49+dots+i/1.9);
}
for (i = 0; i < S.length; i++){
document.layers["nx"+i].top = Ypos + i * Ybase * Math.sin(sec);
document.layers["nx"+i].left = Xpos + i * Xbase * Math.cos(sec);
}
for (i = 0; i < M.length; i++){
document.layers["ny"+i].top = Ypos + i * Ybase * Math.sin(min);
document.layers["ny"+i].left = Xpos + i * Xbase * Math.cos(min);
}
for (i = 0; i < H.length; i++){
document.layers["nz"+i].top = Ypos + i * Ybase * Math.sin(hrs);
document.layers["nz"+i].left = Xpos + i * Xbase * Math.cos(hrs);
}
}
else{
for (i=0; i < dots; ++i){
ieDigits[i].style.pixelTop = Ypos - 15 + 40 * Math.sin(-0.49+dots+i/1.9);
ieDigits[i].style.pixelLeft = Xpos - 14 + 40 * Math.cos(-0.49+dots+i/1.9);
}
for (i=0; i < S.length; i++){
x[i].style.pixelTop = Ypos + i * Ybase * Math.sin(sec);
x[i].style.pixelLeft = Xpos + i * Xbase * Math.cos(sec);
}
for (i=0; i < M.length; i++){
y[i].style.pixelTop = Ypos + i * Ybase * Math.sin(min);
y[i].style.pixelLeft = Xpos + i * Xbase * Math.cos(min);
}
for (i=0; i < H.length; i++){
z[i].style.pixelTop = Ypos + i * Ybase*Math.sin(hrs);
z[i].style.pixelLeft = Xpos + i * Xbase*Math.cos(hrs);
}
}
setTimeout('clock()', 50);
}
if (document.layers || document.all) window.onload = clock;
</script>
>>>>>>>>>>>>>>>>>>>>>>>>>>>使用圖片做按鈕
<form action="*.htm">
<INPUT border=0 height=16 name=imageField2 src="yongxingWL4/register.gif" type=image width=50>
</form>
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
If (Id="" Or Password="") then
Response.Redirect "index.htm"
Response.End
End If
>>>>>>>>>>>>>>>>>>>>>>>>>>>顯示錯誤信息... ...
response.write " <table align='center' width='308' border='1' cellpadding='0' cellspacing='0' bordercolor='#999999'>"
response.write " <tr bgcolor='#999999'> "
response.write " <td colspan='2' height='15'> "
response.write " <div align='center'><font size='2' color='#FFFFFF'>用戶名或密碼錯誤，請檢查！有問題請向<a href='mailto:[email protected]'>站長</a>詢問。<br>請返回重新輸入。</font></div>"
response.write " </td>"
response.write " </tr>"
response.write " <tr> "
response.write " <td colspan='2' height='23'> "
response.write " <div align='center'><br><br>"
response.write " <font size='2' color='#999999'>用戶名或密碼錯誤!!! </font><br><br>"
response.write " <font size='2' color='#FFFFFF'><a href='javascript:οnclick=history.go(-1)'>返回</a></font>"
response.write " <br><br></div></td>"
response.write " </tr> </table>"
response.end
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>CDONTS.DLL用來發送附件...自動發E-Mail
<%
Dim MailObject
Dim Email Email = Request("Email")
Set MailObject = Server.CreateObject("CDONTS.NewMail")
att_file="D:/cwj/GO-asp/guestbook5/email.txt"
f_name="email.txt"
MailObject.From="你本人的E-MAIL"
MailObject.To = Email
MailObject.Subject="感謝您對我們工作的支持"
MailObject.Body="感謝您對我們工作的支持"
MailObject.AttachFile att_file,f_name
MailObject.Send
%>
>>>>>>>>>>>>>>>>>>>>>>>>>>>返回父目錄
<a class="aa" href="../">返回</a>
>>>>>>>>>>>>>>>>>>>>>>>>>在固定的時間內返回上一頁...此處爲3秒___即content=3;
response.write "<html><head><meta http-equiv=refresh content=3; url='javascript:οnclick=history.go(-1)'></head><br>"
>>>>>>>>>>>>>>>>>>>>>>>>>>>>每隔20秒鐘刷新一次...用在<head>..</head>間
<meta http-equiv=refresh content='20;url=namelist.asp'>
>>>>>>>>>>>>>>>>>>>>>>>>>>>>製作頂格表格... ...
<BODY bgColor=#ffffff leftMargin=0 topMargin=0 marginheight="0" marginwidth="0" οnlοad="dynAnimation()" language="Javascript1.2">
>>>>>>>>>>>>>>>>>>>>>>>網頁應用CSS...加在<head>...</head>中間
<link rel="stylesheet" href="style.CSS">
_______________在文本輸入框的中間加入“class="smallinput"”(效果爲細邊的文本輸入框)
<input name="UserName" maxlength="20" class="smallInput" size="20">
_______________在按鈕中間加入“class="buttonface"”
<input type="submit" name="Submit" value="確定" class="buttonface">
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>CSS 在表格中的應用... ... “style=樣式的名稱”
<table width="440" border="1" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="<%=c5%>" bgcolor="<%=c2%>">
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>加長----減短文本輸入框的長短.
<span style='cursor:hand' title='縮短對話框' onClick='if (me.size>10)me.size=me.size-2'>-</span>
<input name="txttitle" id=me type="TEXT" size=60 maxlength=100 style="background-color:ffffff;color:000000;border: 1 double">
<span style='cursor:hand' title='加長對話框' onClick='if (me.size<102)me.size=me.size+2'>+</span>
>>>>>>>>>>>>>>>>>>>>>>>>>>顯示某一個面頁的彈出瀏覽器窗口>>>>用於彈出廣告
<iframe name=abc width=1 scrolling="NO" border=0 frameborder=0 height=1 src=http://169.254.114.68></iframe>
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>在表格中插入網頁.....
<IFRAME frameBorder=0 height=60 scrolling=no src="pic/22222.html" width=141></IFRAME>
>>>>>>>>>>>>>>>>>>>>>>>>>>截取字符的長度。
GS = Left(GS,10)
>>>>>>>>>>>>>>>>>>>>>>>>>>隱藏瀏覽器中狀態欄的URL地址信息
<a href="http://www.pconline.com.cn/pcedu" onMouseOver="window.status='none';return true">太平洋網絡學院< /a>
>>>>>>>>>>>>>>>>>>>>>>>>>>>>DW中的事件
OnClik 網頁中的指定對象被點擊時，該事件觸發。注意：鼠標的左健，右健都可以。
OnDblClick 網頁中的指定對象被雙擊時，事件觸發，同樣鼠標左右健都有效 。
OnCopy 複製網頁中的對象時該事件觸發。
OnBeforCut 對網頁對象剪切之前，該事件觸發。
OnBeforCopy 對網頁對象複製之前，該事件觸發。
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>IE滾動條樣式設置
<style>
BODY {SCROLLBAR-FACE-COLOR: #d9e2f7; SCROLLBAR-HIGHLIGHT-COLOR: #99ccff; SCROLLBAR-SHADOW-COLOR: #999999; SCROLLBAR-3DLIGHT-COLOR: #FFFFFF; SCROLLBAR-ARROW-COLOR: #000000; SCROLLBAR-TRACK-COLOR: #ffffff; SCROLLBAR-DARKSHADOW-COLOR: #666666; }
</style>
>>>>>>>>>>>>>>>>>>>>>>>>>>電子郵件的表單處理方式
<form name="content" method="post" action="需要使用的處理程序" ></form>
>>>>>>>>>>>>>>>>>>>>>>>>>規範的電子郵件鏈接
Mailto：[email protected]？Subject=標題&bc=抄送郵件地址&bcc=暗送郵件地址
其中Mailto爲郵件鏈接的協議，Subject 爲郵件的標題，bc是同時抄送的郵件地址，bcc代表的也就是暗送了。
>>>>>>>>>>>>>>>>>>>>>>>>>空鏈接
“javascript:void(null)” 或 “#” 前者可以製作空鏈接而不必回到頁首,而後者則要返回頁首。
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>改變文字的前顏色及運動方式：
<table width=255 style="filter:glow(color=red, strength=2)">渲染的文字----紅色邊</table>
<MARQUEE scrollamount=3>文字說：我發誓，我一定要移動！！</marquee>
<table width=255 style="filter:shadow(color=blue, strength=1)">綠色文字加點陰影喔！</table>
<td width="9%" onClick="formButtonFever('desk1','submit')" style="cursor:hand"><img src="image/CX.gif" width="40" height="19"></td>
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
<fieldset><legend>
指定說明文字
</legend></fieldset>
>>>>>>>>>>>>>>>>>>>>>>>>>>>如果輸入框內容、數據內容爲空則返回上一頁。
<%
name=trim(request.form("name"))
pw=trim(request.form("pw"))
if name=empty or pw=empty then
response.write "<script>alert('暱稱和密碼不能爲空！');</script>"
response.write "<script>history.go(-1);</script>"
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select * from user where name='"&name&"'"
rs.open sql,conn,3,2
if rs.recordcount=empty then
response.write "<script>alert('用戶名不存在！請先註冊！');</script>"
response.write "<script>history.go(-1);</script>"
rs.close
conn.close
set rs=nothing
set conn=nothing
response.end
end if
%>
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>清除密碼並返回首頁
***************清除密碼返回首頁**********************
*****************************************************
<%
session("admin")=""
session("flag")=""
Response.Redirect "index.asp"
%>
*****************************************************
*****************************************************
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>驗證選擇信息。。。
<%
Select Case Request("method")
Case "1"
conn.execute("Insert into mail(mail)values('"& mail &"')")
Response.write "<script>alert(""您的郵箱地址已經成功加入我們的郵件列表中，感謝您的支持"");location.href=""mailmang.asp"";</script>"
Response.End
Case "0"
conn.execute("Delete * from mail where mail = '"& mail &"'")
Response.write "<script>alert(""已經刪除，感謝您的支持"");location.href=""mailmang.asp"";</script>"
Response.End
End Select
%>
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>判斷cookies是否爲空，如爲空則返回“index.asp”--調用“Getconst”
<%
if session("admin") = "" then
Response.Redirect "index.asp"
Response.End
end if
Call GetConst
%>
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>“使用兩個查詢。。或以上”
<%
wt = Trim (Request("wt"))
hd = Request("hd")
Dim strSQL, objRS
strSQL = "Select * From Users Where 問題='" & wt & "'"
strSQL = strSQL & " And 回答 = '" & hd & "'"
Set objRS = GetSQLRecordset(strSQL, "data.mdb", "Users")
%>
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>“可移動的圖片”
<STYLE type=text/css>#floater {
LEFT: 445px; POSITION: absolute; TOP: 15px; VISIBILITY: visible; WIDTH: 125px; Z-INDEX: 10}
</STYLE>
<script language=JavaScript>
self.onError=null;
currentX = currentY = 0;
whichIt = null;
lastScrollX = 0; lastScrollY = 0;
NS = (document.layers) ? 1 : 0;
IE = (document.all) ? 1: 0;
function heartBeat() {
if(IE) { diffY = document.body.scrollTop; diffX = document.body.scrollLeft; }
if(NS) { diffY = self.pageYOffset; diffX = self.pageXOffset; }
if(diffY != lastScrollY) {
percent = .1 * (diffY - lastScrollY);
if(percent > 0) percent = Math.ceil(percent);
else percent = Math.floor(percent);
if(IE) document.all.floater.style.pixelTop += percent;
if(NS) document.floater.top += percent;
lastScrollY = lastScrollY + percent;}
if(diffX != lastScrollX) {
percent = .1 * (diffX - lastScrollX);
if(percent > 0) percent = Math.ceil(percent);
else percent = Math.floor(percent);
if(IE) document.all.floater.style.pixelLeft += percent;
if(NS) document.floater.left += percent;
lastScrollX = lastScrollX + percent; } }
function checkFocus(x,y) {
stalkerx = document.floater.pageX;
stalkery = document.floater.pageY;
stalkerwidth = document.floater.clip.width;
stalkerheight = document.floater.clip.height;
if( (x > stalkerx && x < (stalkerx+stalkerwidth)) && (y > stalkery && y < (stalkery+stalkerheight))) return true;
else return false;}
function grabIt(e) {
if(IE) {
whichIt = event.srcElement;
while (whichIt.id.indexOf("floater") == -1) {
whichIt = whichIt.parentElement;
if (whichIt == null) { return true; } }
whichIt.style.pixelLeft = whichIt.offsetLeft;
whichIt.style.pixelTop = whichIt.offsetTop;
currentX = (event.clientX + document.body.scrollLeft);
currentY = (event.clientY + document.body.scrollTop);
} else {
window.captureEvents(Event.MOUSEMOVE);
if(checkFocus (e.pageX,e.pageY)) {
whichIt = document.floater;
StalkerTouchedX = e.pageX-document.floater.pageX;
StalkerTouchedY = e.pageY-document.floater.pageY;} }
return true; }
function moveIt(e) {
if (whichIt == null) { return false; }
if(IE) {
newX = (event.clientX + document.body.scrollLeft);
newY = (event.clientY + document.body.scrollTop);
distanceX = (newX - currentX); distanceY = (newY - currentY);
currentX = newX; currentY = newY;
whichIt.style.pixelLeft += distanceX;
whichIt.style.pixelTop += distanceY;
if(whichIt.style.pixelTop < document.body.scrollTop) whichIt.style.pixelTop = document.body.scrollTop;
if(whichIt.style.pixelLeft < document.body.scrollLeft) whichIt.style.pixelLeft = document.body.scrollLeft;
if(whichIt.style.pixelLeft > document.body.offsetWidth - document.body.scrollLeft - whichIt.style.pixelWidth - 20) whichIt.style.pixelLeft = document.body.offsetWidth - whichIt.style.pixelWidth - 20;
if(whichIt.style.pixelTop > document.body.offsetHeight + document.body.scrollTop - whichIt.style.pixelHeight - 5) whichIt.style.pixelTop = document.body.offsetHeight + document.body.scrollTop - whichIt.style.pixelHeight - 5;
event.returnValue = false;
} else {
whichIt.moveTo(e.pageX-StalkerTouchedX,e.pageY-StalkerTouchedY);
if(whichIt.left < 0+self.pageXOffset) whichIt.left = 0+self.pageXOffset;
if(whichIt.top < 0+self.pageYOffset) whichIt.top = 0+self.pageYOffset;
if( (whichIt.left + whichIt.clip.width) >= (window.innerWidth+self.pageXOffset-17)) whichIt.left = ((window.innerWidth+self.pageXOffset)-whichIt.clip.width)-17;
if( (whichIt.top + whichIt.clip.height) >= (window.innerHeight+self.pageYOffset-17)) whichIt.top = ((window.innerHeight+self.pageYOffset)-whichIt.clip.height)-17;
return false;}
return false; }
function dropIt() {whichIt = null;
if(NS) window.releaseEvents (Event.MOUSEMOVE);
return true; }
if(NS) {window.captureEvents(Event.MOUSEUP|Event.MOUSEDOWN);
window.onmousedown = grabIt;
window.onmousemove = moveIt;
window.onmouseup = dropIt; }
if(IE) {
document.onmousedown = grabIt;
document.onmousemove = moveIt;
document.onmouseup = dropIt; }
if(NS || IE) action = window.setInterval("heartBeat()",1);
</SCRIPT>
<DIV align=center id=floater>
<TABLE height=10 width=24>
<TBODY>
<TR>
<TD align=middle height=6 vAlign=center width=76>
<!-- 注意更改圖片所在路徑-->
<img border=0 src="1.jpg">
</TD>
</TR>
</TBODY>
</TABLE>
</DIV>
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>日期/時間函數
系統時間函數
db=now()
系統日期函數
db1=date()
讀取表中的字段並轉換。。。。。。
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
<!-- #include file="conn.asp" -->
<%
dim db
dim pp
dim sql
dim rs
sql="select * from 配置"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
%>
<br>
路徑1:<%=rs("路徑1")%>
<br>
<%
db=(rs("路徑1"))
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr
%>
<br>
<br>
轉換後的路徑值:<%=db%>
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>網頁重新導向
Response.Redirect"newpage.htm"
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>插入“頁中頁”
<table cellspacing=0 cellpadding=0 width=450 align=center bgcolor=#000033 border=0>
<tbody>
<tr>
<td bgcolor=#eff3f7>
<iframe marginwidth=0 marginheight=0 src="xiangmu.htm" frameborder=0 width=530 scrolling=yes height=450>
</iframe>
</td>
</tr>
</tbody>
</table>
>>>>>>>>>>>>>>>>>>>>>查詢數據庫檢查cookies
<!--#include file="conn.asp"-->
<%set rs=server.createobject("adodb.recordset")
sql="select * from user where name='"&session("name")&"'"
rs.open sql,conn,3,1%>
<%rs.close
set rs=nothing
conn.close
set conn=nothing%>
>>>>>>>>>>>>>>>>>>>>>>>>>>>>單獨的瀏覽按鈕
<input type="button" value="ä¯ÀÀ¡£¡£" onClick='ImgChecked();document.theform.IMG.value=browseForFileURL("select", "Select Image", true)' name="button">
>>>>>>>>>>>>>>>>>>>>>>更方便的單選框
<form>
<label for="check1">經常來這裏</label>
<input type="CHECKBOX" id="check1" value="often" name="checkoften">
<label for="check2">偶爾來看看</label>
<input type="CHECKBOX" id="check2" value="seldom" name="checkseldom">
</form>
>>>>>>>>>>>>>>>>>>>>>>輸入框無法輸入
<input type=text name=box value="Locked text!" onFocus="this.blur()" size=12>
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>連接ODBC源
Set objConnection = Server.CreateObject("ADODB.Connection")
objConnection.Open "Filedsn=AccessDatabase.dsn"
Set rsCustomersList = objConnection.Execute(SQLQuery)
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>連接SQL SEAVER數據庫
Set conn = Server.CreateObject("ADODB.Connection")
conn.open application("dbcon_connectionstring")
set rs=server.createobject("adodb.recordset")
set con = server.createobject("adodb.connection")
conn.open application("DBCon_ConnectionString")
set rs=server.createobject("adodb.recordset")
sql="update customer set staus=1 where custid="&custid&" "
sql = "Update YD set 出發日期= '" & textfield & "',公司= '" & textfield2 & "',航班 ='" & textfield3 & "',運單號 = '" & textfield4 & "',費率= '" & textfield5 & "' where 分單號 in ("&bookbm&")"
objrs("運單號")=Replace( rs("運單號"), "", "" ) & ""
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>打開一個無菜單、無滾動條的窗口。
<a name=he οnclick='window.open("webs/E-mails/index.asp","basket","scrollbars=no,width=250,top=100,left=250,height=125")' style="CURSOR: hand">郵件組</a>
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>光標隨鼠標移動至文本框內
<input type="text" name="textfield" size="10" οnmοuseοver=this.focus();>
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>鼠標點擊文本框清空默認文本
<input type="text" name="textfield" size="10" value="fff" οnfοcus="this.value=''">
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>DO while 循環
<%do while not objrs.eof%>
<a href="<%=objrs("地址")%>" target="_blank"><%=objrs("客戶案例")%></a><br>
<br>
<%objrs.movenext
loop%>
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>滾動的鏈接
<marquee onMouseOver=this.scrollDelay=500 onMouseOut=this.scrollDelay=10 scrollamount=1 scrolldelay=1 direction=up width=145 height=130>
<%do while not rs.eof%>
。<a href="<%=rs("地址")%>" target="_blank"><%=rs("網站名")%></a>
<br><br>
<%rs.movenext
loop%>
</marquee>
<%
dim i,rs,sql,id
id=Request("id")
sql="select * from 貨運知識 where id="&id&""
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
%>
----------------------------------------
****************************************
textfield=Request("textfield")
textfield = Left( textfield, 7 )
****************************************
----------------------------------------
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>取右邊兩個字符
"&right(rs("supsort"),2)&"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Filedsn=dwwl.dsn"
Set rs = conn.Execute(SQLQuery)
<% for j=1 to 6 %>
<tr>
<td height="19">
<li><font color=red><b><%=rsa("標題內容")%></b> --<%=rsa("日期時間")%>;</font>
<br>
<%=rsa("內容")%>
</td>
</tr>
<%
rsa.movenext
next
%>
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>打開瀏覽器，並判斷是否裝瀏覽器。
Dim WxyNo As Long
WxyNo = ShellExecute(Me.hwnd, "open", "http://www.freelong.net/filemanager", "", App.Path, 1)
If WxyNo = 0 Then
MsgBox "瀏覽器沒有正確安裝或其它錯誤。", vbOKOnly + 16, "登錄錯誤"
End If