国内激情视频在线观看,一个人www视频在线免费观看,国产亚洲成av人片在线观看 http://www.lalz.net 你的IT之家,站長網(wǎng)絡(luò)技術(shù)學習、網(wǎng)站賺錢方法交流之家 Sun, 12 Dec 2021 10:35:35 +0000 zh-Hans hourly 1 https://wordpress.org/?v=6.8.1 PHP校驗ISBN碼的函數(shù) http://www.lalz.net/3434.html http://www.lalz.net/3434.html#respond Sun, 12 Dec 2021 10:35:35 +0000 最近在編寫一個圖書管理程序的時候,需要校驗圖書ISBN碼正確性,查了一些資料,了解了圖書ISBN碼的構(gòu)成,詳細資料可以參考:國際標準書號 – 維基百科,下面還是簡述一下什么是ISBN碼:
國際標準書號(International Standard Book Number,ISBN;擬發(fā)音is-ben),是國際通用的圖書或獨立的出版物(除定期出版的期刊)代碼。出版社可以通過國際標準書號清晰的辨認所有非 期刊書籍。一個國際標準書號只有一個或一份相應(yīng)的出版物與之對應(yīng)。新版本如果在原來舊版的基礎(chǔ)上沒有內(nèi)容上太大的變動,在出版時也不會得到新的國際標準書 號碼。當平裝本改為精裝本出版時,原來相應(yīng)的國際標準書號號碼也應(yīng)當收回。
平常我們能夠見到的ISBN碼有10位和13位兩種,其中10位的ISBN自2007年1月起已經(jīng)停止使用,目前新出版的圖書ISBN碼都是13 位。考慮到一個嚴謹?shù)膱D書管理程序要考慮到多方面的問題,因為10位ISBN碼的圖書還是有巨大的存世量的,所以要校驗圖書ISBN碼的正確性,就必須同 時考慮10位和13位的情況。從維基百科可以了解到ISBN碼最后一位是校驗碼,其實要想校驗ISBN碼的正確,就是通過計算ISBN的校驗碼,看是否與 最后一位吻合。這里所說的校驗也只是校驗ISBN在構(gòu)成上是否合法,而不會校驗是否為已發(fā)行圖書的ISBN。下面是維基百科提供的ISBN碼校驗算法:
校驗碼的計算方法(10碼)
假設(shè)某國際標準書號號碼前9位是:7-309-04547
計算加權(quán)和S:S = 7×10+3×9+0×8+9×7+0×6+4×5+5×4+4×3+7×2 = 226
計算S÷11的余數(shù)M:M = 226 mod 11 = 6
計算11 – M 的差N:N = 11 ? 6 = 5
如果N = 10,校驗碼是字母"X"
如果N = 11,校驗碼是數(shù)字"0"
如果N為其他數(shù)字,校驗碼是數(shù)字N
所以,本書的校驗碼是5;如果用戶提供的ISBN碼是7-309-04547-6,那么校驗失敗
校驗碼的計算方法(13碼)
假設(shè)某國際標準書號號碼前12位是:978-986-181-728
計算加權(quán)和S:S = (9×1)+(7×3)+(8×1)+(9×3)+(8×1)+(6×3)+(1×1)+(8×3)+(1×1)+(7×3)+(2×1)+(8×3) = 164
計算S÷10的余數(shù)M:M = 164 mod 10 = 4
計算10 – M 的差N:N = 10 ? 4 = 6
如果N = 10,校驗碼是數(shù)字"0"
如果N為其他數(shù)字,校驗碼是數(shù)字N
所以,本書的校驗碼是6。完整的國際標準書號號碼為 ISBN 978-986-181-728-6 ]]>
http://www.lalz.net/3434.html/feed 0
ASP獲取HTML表單提交信息實例 http://www.lalz.net/3433.html http://www.lalz.net/3433.html#respond Sun, 12 Dec 2021 10:35:34 +0000
  核心提示:在ASP中,有兩個很常用的集合,一個是 Request.QueryString,另一個是 Request.Form。這兩個集合可以獲取 HTML 表單(HTML Forms) 提交的信息。有關(guān) HTML 表單,請參見 HTML 教程中的 HTML表單一章。Request.QueryStringHTM…

itE-SPACE: normal; LETTER-SPACING: normal; COLOR: rgb(34,34,34); WORD-SPACING: 0px; PADDING-TOP: 0px; -webkit-text-stroke-width: 0px">在 ASP 中,有兩個很常用的集合,一個是 Request.QueryString,另一個是 Request.Form。這兩個集合可以獲取 HTML 表單(HTML Forms) 提交的信息。

有關(guān) HTML 表單,請參見 HTML 教程中的 HTML表單 一章。

Request.QueryString

HTML 表單中的 method 有兩種,一種是 get,另外一種是 post。當 HTML 表單的 method="get" 時,可以用 Request.QueryString 來獲取表單提交的信息。

以下是一個讓用戶輸入姓名的 HTML 表單示例。


<form action="http://www.webjx.com/" method="get">
請輸入你的姓名:
<input type="text" name="yourname">
<input type="submit" value="提交">
</form>


該示例中,HTML 表單中使用的 method 為 get,指向 action 的網(wǎng)頁是一個 .asp 文件,名字為 yourname.asp。以下是 yourname.asp 文件的源代碼


<html>
<head>
<title>姓名信息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<p>你的姓名是:<%= Request.QueryString("yourname") %></p>
</body>
</html>


在這個 .asp 文件里,你可以看到最關(guān)鍵的一句代碼是:


<p>你的姓名是:<%= Request.QueryString("yourname") %></p>

Request.QueryString 括號里的 "yourname" 對應(yīng)于 HTML 表單中的 input 輸入框的 name 值。

當使用 method="get" 提交表單信息時,用戶可以從地址欄看到這些提交信息。

Request.Form

當 HTML 表單中 method = "post" 時,可以用 Request.Form 來獲取 HTML 表單提交的信息。

以下是一個讓用戶輸入姓名和密碼的 HTML 表單示例。


<form  action="http://www.webjx.com/html/asdocs/html_tutorials/userpw.asp" method="post">
請輸入你的姓名:<input type="text" name="yourname"><br>
請輸入你的密碼:<input type="password" name="yourpw"><br>
<input type="submit" value="提交">
</form>


該示例中,HTML 表單中使用的 method 為 post,指向 action 的網(wǎng)頁是一個 .asp 文件,名字為 userpw.asp。以下是 userpw.asp 文件的源代碼:


<html>
<head>
<title>用戶信息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<p>你的姓名是:<%= Request.Form("yourname") %></p>
<p>你的密碼是:<%= Request.Form("yourpw") %></p>
</body>
</html>


在這個 .asp 文件里,你可以看到最關(guān)鍵的兩句代碼是:

<p>你的姓名是:<%= Request.Form("yourname") %></p>
<p>你的密碼是:<%= Request.Form("yourpw") %></p>

Request.Form 括號里的 "yourname" 和"yourpw" 各對應(yīng)于 HTML 表單中的兩個 input 輸入框的 name 值。

當使用 method="post" 提交表單信息時,用戶不會從地址欄看到這些提交信息。

 

HTML表單中還有一些可供用戶選擇的表單控件,比如單選框 input type="radio",復(fù)選框 input type="checkbox",單選下拉框 select,復(fù)選下拉框 select multiple。

這些選擇性的控件示例,請參見 HTML表單教程。在這些示例中,action 指向的那個 .asp 文件叫 choose.asp。以下是 choose.asp 文件的源代碼:


<html>
<head>
<title>retrieve  information from form controls(radio, checkbox, select) </title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
你選擇了:<br>
<% For counter = 1 To Request.Form("fruit").Count
  Response.Write  Request.Form("fruit")(counter) & "<br>"
Next
 %>
</body>
</html>


Request.Form 獲取的是一個集合 (collection)。Request.Form 集合有兩個參數(shù),一個是 element,稱做元素,對應(yīng) HTML表單控件的 name 值;第二個是 index,稱做索引,表示 element 的第幾個值,index 從1開始計數(shù)。

用 Request.Form(element)(index) 可以引用 Request.Form 集合中某個元素的某個值。

比如 Request.Form("fruit")(1),表示"fruit"元素中的第一個值,Request.Form("fruit")(2) 表示"fruit"元素中的第2個值。

用 Request.Form(element).Count,可以得到集合中某個元素的值的總數(shù)量。

比如 Request.Form("fruit").Count 為 3 的話,就表示 "fruit" 這個元素有3個值

]]>
http://www.lalz.net/3433.html/feed 0
ASP特殊字符過濾的函數(shù) http://www.lalz.net/3401.html http://www.lalz.net/3401.html#respond Sun, 12 Dec 2021 10:35:09 +0000
  核心提示:%str='dshofghe98awyt9'if ChkInvaildWord(str) thenresponse.write '你的輸入含有非法字符'response.endend ifFunction ChkInvaildWord(Words)Const InvaildWords='select…
itE-SPACE: normal; BACKGROUND: url(http://yx095.info/static/image/commoncodebg.gif) rgb(247,247,247) repeat-y 0px 0px; LETTER-SPACING: normal; COLOR: rgb(68,68,68); BORDER-TOP: rgb(204,204,204) 1px solid; BORDER-RIGHT: rgb(204,204,204) 1px solid; WORD-SPACING: 0px; PADDING-TOP: 10px; -webkit-text-stroke-width: 0px" class=blockcode>

<%

str="dshofghe98awyt9"

if ChkInvaildWord(str) then

response.write "你的輸入含有非法字符"

response.end

end if

Function ChkInvaildWord(Words)

Const InvaildWords="select|update|delete|insert|@|–|," ''需要過濾得字符以“|”隔開,最后結(jié)束的字符必須是|



ChkInvaildWord=True

InvaildWord=Split(InvaildWords,"|")

inWords=LCase(Trim(Words))



For i=LBound(InvaildWord) To UBound(InvaildWord)

If Instr(inWords,InvaildWord(i))>0 Then

ChkInvaildWord=True

Exit Function

End If

Next

ChkInvaildWord=False

End Function

%>

 

例如 你現(xiàn)在接受了一個STR的值

那么就直接 ChkInvaildWord(STR)

如果STR中間有特殊字符 那么你就得到了FALSE

如果沒有 那么你就得到TRUE

一般都都會在前面加上IF判斷。。

]]>
http://www.lalz.net/3401.html/feed 0
ASP打開任何類型文件提示保存 http://www.lalz.net/3400.html http://www.lalz.net/3400.html#respond Sun, 12 Dec 2021 10:35:07 +0000
  核心提示:相信大家平時都有這樣的經(jīng)歷:頁面上有一個鏈接指向服務(wù)器一 個Word文件,當客戶端機器有安裝Office時,點擊鏈接將調(diào)用Word打開瀏覽;當客戶端機器沒有安裝Office時,點擊鏈接將彈出保存對話框。 總結(jié)一下即如果瀏覽器認識文件類型,就會自動打開;如果不認識,則會提示客戶保存??墒怯袝r候我們希望…

itE-SPACE: normal; LETTER-SPACING: normal; COLOR: rgb(34,34,34); WORD-SPACING: 0px; PADDING-TOP: 0px; -webkit-text-stroke-width: 0px">相信大家平時都有這樣的經(jīng)歷:頁面上有一個鏈接指向服務(wù)器一 個Word文件,當客戶端機器有安裝Office時,點擊鏈接將調(diào)用Word打開瀏覽;當客戶端機器沒有安裝Office時,點擊鏈接將彈出保存對話框。 總結(jié)一下即如果瀏覽器認識文件類型,就會自動打開;如果不認識,則會提示客戶保存??墒怯袝r候我們希望不管什么類型文件,都不要打開,直接讓客戶端保存。 要達到這個要求,對于保存在服務(wù)器硬盤上的文件就得利用ASPUpload組件的SendBinary方法來實現(xiàn),而對于保存在數(shù)據(jù)庫中的文件則只須打開記錄集,然后將二進制數(shù)據(jù)直接輸出到客戶端即可,不過要告訴瀏覽器文件的MIME類型、文件名稱和文件大小。

1.服務(wù)器端硬盤上的文件

<%

Dim Upload,FilePath

Set Upload = Server.CreateObject("Persits.Upload")

FilePath = Server.MapPath(".") & "" & "2003529213019.txt"

'SendBinary參數(shù)說明:

'參數(shù)一:文件物理路徑

'參數(shù)二:是否將文件的MIME類型等信息傳送給瀏覽器

'參數(shù)三:文件類型,可以指定具體的MIME類型,但一般都可以使用application/octet-binary

'參數(shù)四:讓客戶端保存文件還是直接打開。True:保存;False(默認):打開

Upload.SendBinary FilePath,True,"application/octet-binary",True

%>

 



2.服務(wù)器端數(shù)據(jù)庫中的文件

<%

Dim objConn,objRs

Set objConn = Server.CreateObject("ADODB.Connection")

Set objRs = Server.CreateObject("ADODB.RecordSet")

objConn.open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db1.mdb")

objRs.open "select * from t5 where id=2",objConn,1,3

Response.ContentType = "application/octet-stream"

Response.AddHeader "Content-Disposition","attachment;filename=" & objRs("filename")

Response.AddHeader "Content-Length",CStr(objRs("size")) '此處必須用CStr轉(zhuǎn)換

Response.BinaryWrite objRs("file")

objRs.close

Set objRs = nothing

objConn.close

Set objConn = nothing

%>

 



此法要求保存文件時需同時保存文件名及文件大小!若未指定文件名及大小,如果瀏覽器認識該文件類型,將會自動打開;如果不認識,才會提示客戶保存!

]]>
http://www.lalz.net/3400.html/feed 0
ASP動態(tài)程序防采集的新方法 http://www.lalz.net/3399.html http://www.lalz.net/3399.html#respond Sun, 12 Dec 2021 10:35:05 +0000
  核心提示:昨天在網(wǎng)上看到一個防采集軟件,說采集只訪問當前網(wǎng)頁,不會訪問網(wǎng)頁的圖片、JS等,今天突然想到,通過動態(tài)程序和Js訪問分別記錄訪問者的IP, 然后進行IP判斷,由于采集過程不會訪問JS,采集的時候只會查到用動態(tài)程序記錄的IP,而不會有通過JS記錄的IP,從而實現(xiàn)網(wǎng)頁程序的防采集。防采集的原理非常簡單,…

itE-SPACE: normal; LETTER-SPACING: normal; COLOR: rgb(34,34,34); WORD-SPACING: 0px; PADDING-TOP: 0px; -webkit-text-stroke-width: 0px">昨天在網(wǎng)上看到一個防采集軟件,說采集只訪問當前網(wǎng)頁,不會訪問網(wǎng)頁的圖片、JS等,今天突然想到,通過動態(tài)程序和Js訪問分別記錄訪問者的IP, 然后進行IP判斷,由于采集過程不會訪問JS,采集的時候只會查到用動態(tài)程序記錄的IP,而不會有通過JS記錄的IP,從而實現(xiàn)網(wǎng)頁程序的防采集。

防采集的原理非常簡單,首先放一段動態(tài)語句,把訪問者的IP加入到數(shù)據(jù)庫的一個表里,然后在頁面底部加入一個JS,JS直接訪問動態(tài)頁面,將訪問者 的IP加入到數(shù)據(jù)庫的另外一個表里。再次訪問的時候,從兩個表里讀IP數(shù)據(jù),然后判斷時間差,如果只在第一個表里找到,在第二個表里找不到,或者時間差超 過10秒,則認為是采集。

優(yōu)點

1.部署簡單,只要是動態(tài)語言就能很容易的實現(xiàn),無需借助服務(wù)器端程序

2.殺傷力大,幾乎能封殺所有的采集過程

缺點

1.第一個缺點還是殺傷力大,如果需要實際使用需要考慮一些特殊情況,以免誤殺已經(jīng)殺掉搜索爬蟲

2.只適用于動態(tài)網(wǎng)頁,靜態(tài)頁面就沒法用了

流程寫的比較亂,不過原理本身就不是很復(fù)雜,下面附上程序例子,懂ASP的應(yīng)該很快就能看懂。

程序例子(ASP+ACCESS):

1.建立數(shù)據(jù)庫

表1:Ip1,字段Ip1_Adderss(文本),Ip1_Time(日期/時間,默認值=Now())

表2:Ip2,字段Ip2_Adderss(文本),Ip2_Time(日期/時間,默認值=Now())

2.Index.asp(僅動態(tài)代碼,全部代碼請見測試程序中)

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%

Dim Conn,Rs,Sqlstr,Ip,IpTime,IpTime2,NewUser

NewUser=0

Set Conn = Server.CreateObject("Adodb.Connection")

Set Rs=Server.Createobject("Adodb.RecordSet")

ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Data.mdb")

Conn.Open ConnStr

Ip=Request.ServerVariables("REMOTE_ADDR")

Sqlstr="Select * From [Ip1] Where Ip1_Address='"&Ip&"' Order By Ip1_Id Desc"

Rs.Open Sqlstr,Conn,1,3

If Rs.Eof Then

NewUser=1

Application.Lock()

Rs.AddNew()

Rs("Ip1_Address")=Ip

Rs.Update()

Application.UnLock()

Else

IpTime=Rs("Ip1_Time")

Application.Lock()

Rs.AddNew()

Rs("Ip1_Address")=Ip

Rs.Update()

Application.UnLock()

End If

Rs.Close

If NewUser=0 Then

Sqlstr="Select * From [Ip2] Where Ip2_Address='"&Ip&"' Order By Ip2_Id Desc"

Rs.Open Sqlstr,Conn,1,3

If Rs.Eof Then

Rs.Close

Response.Write("請勿采集!")

Response.End()

Else

IpTime2=Rs("Ip2_Time")

If DateDiff("s",IpTime2,IpTime)>10 Then

Rs.Close

Response.Write("請勿采集!")

Response.End()

End If

End If

Rs.Close

End If

%>

 

3.Js.asp

<%

Dim Conn,Rs,Sqlstr,Ip

Set Conn = Server.CreateObject("Adodb.Connection")

Set Rs=Server.Createobject("Adodb.RecordSet")

ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Data.mdb")

Conn.Open ConnStr

Ip=Request.ServerVariables("REMOTE_ADDR")

Sqlstr="Select * From [Ip2]"

Rs.Open Sqlstr,Conn,1,3

Application.Lock()

Rs.AddNew()

Rs("Ip2_Address")=Ip

Rs.Update()

Application.UnLock()

Rs.Close

%>

 

4.Get.asp



<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%

Response.Write(Server.HTMLEncode(GetHttpPage("http://localhost/Index.asp","GB2312")))

'==============================

'函 數(shù) 名:GetHttpPage

'作 用:獲取頁面源代碼函數(shù)

'參 數(shù):網(wǎng)址HttpUrl

'==============================

Function GetHttpPage(HttpUrl,Code)

If IsNull(HttpUrl)=True Or HttpUrl="" Then

GetHttpPage="A站點維護中!"

Exit Function

End If

On Error Resume Next

Dim Http

Set Http=server.createobject("MSX"&"ML2.XML"&"HTTP")

Http.open "GET",HttpUrl,False

Http.Send()

If Http.Readystate<>4 then

Set Http=Nothing

GetHttpPage="B站點維護中!"

Exit function

End if

GetHttpPage=BytesToBSTR(Http.responseBody,Code)

Set Http=Nothing

If Err.number<>0 then

Err.Clear

GetHttpPage="C站點維護中!"

Exit function

End If

End Function

'==============================

'函 數(shù) 名:BytesToBstr

'作 用:轉(zhuǎn)換編碼函數(shù)

'參 數(shù):字符串Body,編碼Cset

'==============================

Function BytesToBstr(Body,Cset)

Dim Objstream

Set Objstream = Server.CreateObject("ado"&"d"&"b.st"&"re"&"am")

Objstream.Type = 1

Objstream.Mode =3

Objstream.Open

Objstream.Write body

Objstream.Position = 0

Objstream.Type = 2

Objstream.Charset = Cset

BytesToBstr = Objstream.ReadText

Objstream.Close

set Objstream = nothing

End Function

%>

]]>
http://www.lalz.net/3399.html/feed 0
ASP生成靜態(tài)網(wǎng)頁的方法 http://www.lalz.net/3398.html http://www.lalz.net/3398.html#respond Sun, 12 Dec 2021 10:35:04 +0000
  核心提示:著網(wǎng)站訪問量的加大,每次從數(shù)據(jù)庫讀取都是以效率作為代價的,很多用ACCESS作數(shù)據(jù)庫的更會深有體會,靜態(tài)頁加在搜索時,也會被優(yōu)先考慮?;ヂ?lián) 網(wǎng)上流行的做法是將數(shù)據(jù)源代碼寫入數(shù)據(jù)庫再從數(shù)據(jù)庫讀取生成靜態(tài)面,這樣無形間就加大了數(shù)據(jù)庫。將現(xiàn)有的ASP頁直接生成靜態(tài)頁,將會節(jié)省很多?! ∠旅娴睦邮菍?、in…

itE-SPACE: normal; FLOAT: none; LETTER-SPACING: normal; COLOR: rgb(34,34,34); WORD-SPACING: 0px; -webkit-text-stroke-width: 0px">著網(wǎng)站訪問量的加大,每次從數(shù)據(jù)庫讀取都是以效率作為代價的,很多用ACCESS作數(shù)據(jù)庫的更會深有體會,靜態(tài)頁加在搜索時,也會被優(yōu)先考慮。互聯(lián) 網(wǎng)上流行的做法是將數(shù)據(jù)源代碼寫入數(shù)據(jù)庫再從數(shù)據(jù)庫讀取生成靜態(tài)面,這樣無形間就加大了數(shù)據(jù)庫。將現(xiàn)有的ASP頁直接生成靜態(tài)頁,將會節(jié)省很多。



  下面的例子是將、index.asp?id=1/index.asp?id=2/index.asp?id=3/這三個動態(tài)頁面,分別生成ndex1.htm,index2.htm,index3.htm存在根目錄下面:

Code:



<%

dim strUrl,Item_Classid,id,FileName,FilePath,Do_Url,Html_Temp

Html_Temp="<UL>"

For i=1 To 3

Html_Temp = Html_Temp&"<LI>"

Item_Classid = i

FileName = "Index"&Item_Classid&".htm"

FilePath = Server.MapPath("/")&""&FileName

Html_Temp = Html_Temp&FilePath&"</LI>"

Do_Url = "http://"

Do_Url = Do_Url&Request.Servervariables("SERVER_NAME")&"/main/index.asp"

Do_Url = Do_Url&"?Item_Classid="&Item_Classid

strUrl = Do_Url

dim objXmlHttp

set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP")

objXmlHttp.open "GET",strUrl,false

objXmlHttp.send()

Dim binFileData

binFileData = objXmlHttp.responseBody

Dim objAdoStream

set objAdoStream = Server.CreateObject("ADODB.Stream")

objAdoStream.Type = 1

objAdoStream.Open()

objAdoStream.Write(binFileData)

objAdoStream.SaveToFile FilePath,2

objAdoStream.Close()

Next

Html_Temp = Html_Temp&"<UL>"

%>

<%

Response.Write ( "成功生成文件:" )

Response.Write ( "<BR>" )

Response.Write Html_Temp

%>

]]>
http://www.lalz.net/3398.html/feed 0
ASP將access數(shù)據(jù)導(dǎo)出為excel電子表的方法 http://www.lalz.net/3397.html http://www.lalz.net/3397.html#respond Sun, 12 Dec 2021 10:35:02 +0000
  核心提示:有一個客戶要求后臺生成大數(shù)據(jù)量(每次生成幾萬條)的會員卡號及密碼,金額等。生成的會員卡號及密碼要印制在卡上對會員發(fā)放。生成大量數(shù)據(jù)在庫中,印制卡片的廠家要拿到數(shù)據(jù)進行印制怎么辦呢?于是我想到用代碼將access中的數(shù)據(jù)生成Excel表格導(dǎo)出。打印這樣不就可以了嗎?在網(wǎng)上查找相關(guān)資料可都不盡如我意,就…

itE-SPACE: normal; LETTER-SPACING: normal; COLOR: rgb(34,34,34); WORD-SPACING: 0px; PADDING-TOP: 0px; -webkit-text-stroke-width: 0px">有一個客戶要求后臺生成大數(shù)據(jù)量(每次生成幾萬條)的會員卡號及密碼,金額等。生成的會員卡號及密碼要印制在卡上對會員發(fā)放。生成大量數(shù)據(jù)在庫中,印制卡片的廠家要拿到數(shù)據(jù)進行印制怎么辦呢?

于是我想到用代碼將access中的數(shù)據(jù)生成Excel表格導(dǎo)出。打印這樣不就可以了嗎?在網(wǎng)上查找相關(guān)資料可都不盡如我意,就自己動手寫了這個程序?,F(xiàn)放出來供大家分享!

下面為代碼:

 

以下為引用的內(nèi)容:

<!–#include file="../conn.asp"–>

<%

if session("china_admin")="" then response.redirect "login.asp"

dbpath="../"

dblink

dim filename,fs,myfile,x,m,n,o,link

Set fs = server.CreateObject("scripting.filesystemobject")

Set rs = Server.CreateObject("ADODB.Recordset")

session("sql") = "select * from china_car"

rs.Open session("sql"),conn,1,1

n=1

'==================================================================

'==============================================================建立excel文件系統(tǒng)

filename = Server.MapPath("car/CarTable"&n&".xls") '這個是為了方便,新建一個CAR的文件夾,這個可以自己設(shè)啦

if fs.FileExists(filename) then'如果文件存在,覆蓋它。

fs.DeleteFile(filename)

end if

set myfile = fs.CreateTextFile(filename,true)

'========================================================================

dim strLine,responsestr

strLine=""

dim work,j,i

str="序號|卡號|密碼|積分數(shù)|金額"  '這個根據(jù)你的access數(shù)據(jù)表字段設(shè)置。

work=split(str,"|")

j=ubound(work)

i=0

o=0

do while not i>j

strLine= strLine & work(i) & chr(9)

i=i+1

loop

myfile.writeline strLine

Do while Not rs.EOF

o=o+1

m=20000



strLine=""

for each x in rs.Fields

strLine= strLine & x.value & chr(9)

if o>=m*n then

n=n+1

filename = Server.MapPath("car/CarTable"&n&".xls") '這個可以自己設(shè)啦

if fs.FileExists(filename) then'如果文件存在,覆蓋它。

fs.DeleteFile(filename)

end if

set myfile = fs.CreateTextFile(filename,true)

end if

next

myfile.writeline strLine

rs.MoveNext

loop

rs.Close

set rs = nothing

conn.close

set conn = nothing

set myfile = nothing

Set fs=Nothing

ExcelPath="car/CarTable"&n&".xls"

response.Write "導(dǎo)出成功  "

response.write("<a href='" & server.URLEncode(ExcelPath) & "'><font=red>下載</font></a>")

%>

]]>
http://www.lalz.net/3397.html/feed 0
團購沖擊攜程高傭金模式:168元客房最低僅10元 http://www.lalz.net/2516.html http://www.lalz.net/2516.html#respond Sun, 12 Dec 2021 10:21:05 +0000

  一間168元一夜的客房最低只要10元

  在線旅游預(yù)訂商攜程(CTRP.NASDAQ)正在四面受敵,傭金模式再次面臨巨大挑戰(zhàn)。

  此前,受淘寶網(wǎng)切入低價機票領(lǐng)域沖擊,攜程已經(jīng)被迫低價“迎戰(zhàn)”,而今,正在迅猛上升的團購模式再次挑戰(zhàn)攜程的傭金模式。一間原價168元一夜的客房在團購網(wǎng)站最低只要10元即可。

  目前,不少酒店都開辟了團購分銷渠道,這種模式下的酒店價格可比正常價低30%~80%不等,有時甚至低于1折。由于團購可減少酒店客房空置率、平衡收益管理、減少營銷費用,甚至抓住未來客戶,大量酒店開始熱衷于此方式銷售,受此影響,這些酒店在攜程的銷售量近期已出現(xiàn)10%~30%不等的下滑。

  團購沖擊攜程高傭金模式

  團購的操作模式是由酒店方經(jīng)過計算后,拿出一定數(shù)量的客房在特定時間段與團購網(wǎng)站合作低價銷售,酒店不用支付傭金給網(wǎng)站,僅付給合作網(wǎng)站一筆服務(wù)費,據(jù)反映,這筆服務(wù)費并不高。比較熱衷于團購渠道的酒店通常以中低端酒店和非大規(guī)模連鎖酒店為主,這類酒店直銷能力相對較弱,需其他分銷渠道支持,而攜程高傭金模式又給了它們壓力,因此低成本高效益的團購渠道開始受到青睞。

  據(jù)多家酒店反映,酒店方的分銷渠道通常有大公司訂單、酒店訂房中心直銷、傭金中介、旅行社團隊客、團購等。大公司客戶可占30%~50%不等,攜程中介可占20%~40%不等,而旅行社和訂房直銷占比不均,團購這一新模式目前占比10%~30%。

  值得注意的是,在各種分銷渠道中,酒店直銷可謂接近零成本,而攜程這類傭金渠道成本最高,部分酒店指攜程抽傭金比例可達20%甚至更高。團購模式則是僅次于直銷的低成本模式,且酒店可自我控制房價與低價房數(shù)量。

  “鑒于上述優(yōu)點,我們希望今后將團購比例從現(xiàn)在20%多提高到50%左右。”北京佳龍陽光酒店銷售管理人員周衛(wèi)春向《第一財經(jīng)日報》表示。不少酒店也都表達了增加團購比例的想法。

  如若大量酒店轉(zhuǎn)向團購模式,攜程將受到直接沖擊。有酒店表示,團購上升必然造成攜程中介預(yù)訂量的下滑,根據(jù)不完全統(tǒng)計,部分酒店在采取團購后,其通過攜程的預(yù)訂量已減少了10%~30%不等。更有業(yè)者表示,假如今后團購發(fā)展得好,會考慮終止與攜程合作。

  四大關(guān)鍵因素

  團購概念的興起并非是酒店方的沖動,周衛(wèi)春向記者透露了采取團購模式的最主要原因——減少空置率。

  “我們是一家商務(wù)酒店,在與去哪兒合作團購之前,我們的特點是平常日客人很多,但雙休日和節(jié)假日空置率就很高,對酒店來說,需要的是規(guī)模,空置率過高是致命的,假如可以用低價來拉升入住率,也可薄利多銷產(chǎn)生規(guī)模效益。”周衛(wèi)春給出了一組數(shù)據(jù),該酒店共387間客房,周末時會拿出100多間進行低價團購銷售,一般以2折左右價格銷售,團購使其周末入住率從30%猛增到了80%甚至90%。

  除了提升空置率,平衡酒店收益管理也是促成更多酒店加入團購大軍的又一因素。“我們酒店在當?shù)貙儆诶献痔?,不缺客源,但總也有淡旺季區(qū)分,團購是我們嘗試去平衡收益管理的方法。”深圳上海酒店銷售總監(jiān)付坤告訴記者,該酒店團購價格比原價降幅約在20%,盡管降幅不大,不一定會吸納大量客戶,但對酒店分銷架構(gòu)調(diào)整有很大作用。目前該酒店分銷渠道分為散客直銷、團購、攜程等傭金中介、大客戶訂單等,其中大客戶訂單是最主要來源,而散客直銷是目前需要轉(zhuǎn)換管理的,團購客戶都是散客,且成本低于傭金中介,這使其整體酒店銷售成本降低,客源增加,有利于

  而減少營銷費用是不少酒店猛推團購的第三個原因。共有138間客房的廣州傾城酒店是一家新開業(yè)酒店,其銷售管理人員孫麗雪介紹,通過團購,100多間客房很快售出,而最關(guān)鍵的是,新開業(yè)酒店需大量宣傳費用,其支付給團購合作方的服務(wù)費并不高,通過網(wǎng)絡(luò)團購,等于給酒店打了免費廣告,極大降低了營銷成本。這也是眾多酒店熱衷于團購模式的另一大主因。

  此外,很多酒店業(yè)者反映,由于團購都通過網(wǎng)絡(luò)進行,消費者以80后、90后為主,一旦這些客人養(yǎng)成了這種消費習慣,等于是為酒店抓住了未來客戶。“這些未來客戶能對我們長遠銷售有所保障,同時,他們的消費習慣也有助于我們推出組合類團購產(chǎn)品,比如將酒店客房與餐飲打包在一起銷售等。”上海明城大酒店銷售總監(jiān)張莉說。

  攜程欲“曲線救國”?

  目前,去哪兒、拉手、淘寶等紛紛大推酒店旅游團購,面對如此挑戰(zhàn),攜程表示內(nèi)部還在研究團購,但本身并未直接進軍團購業(yè)務(wù)。此外,攜程一直指團購或短期低價促銷不乏貓膩,比如時間和數(shù)量都有限制。

  而業(yè)者指出,攜程依靠的是傭金模式,一旦攜程采用低價團購則會拉低其利潤。有部分不愿透露名字的酒店業(yè)者透露,近期由于團購火爆影響到攜程中介渠道訂房量,攜程已經(jīng)對這些酒店表示了不滿。

  不過,攜程最近瞄上了高星級酒店合作伙伴,因為低價團購模式不適用于高星級酒店,而抓住高端客戶可以“以質(zhì)充量”。就在日前,攜程宣布與香格里拉酒店集團達成在中國區(qū)直聯(lián)預(yù)訂合作,雙方后臺對接,該模式會在之后被香格里拉酒店

  更加微妙的是,記者昨日從攜程麾下獨立運作的星程酒店聯(lián)盟獲悉,該聯(lián)盟正與拉手網(wǎng)等合作團購,已經(jīng)擁有110多家聯(lián)盟酒店的星程拿出了6~7家酒店進行團購試水。另外星程還推出與北京佳龍陽光酒店類似的抵用券活動,消費者可以用5元價格入住酒店。由于星程獨立運作,所以并不會影響攜程的傭金收入,但也等于曲線進行了團購嘗試。

  華美首席知識管理專家趙煥焱指出,團購作為低成本大客房量分銷模式肯定會對攜程造成沖擊,這也促使攜程做出轉(zhuǎn)型,但團購也并非沒有弊端,比如一般分銷渠道的賬期是30天,而團購賬期分3~4期到賬,所有的酒店收入要等整個團購活動結(jié)束后才可收全,如果活動持續(xù)幾個月則賬期也就長達數(shù)月,所以對酒店方的資金承受能力以及網(wǎng)絡(luò)合作者的資信安全性要求很高。


 
]]>
http://www.lalz.net/2516.html/feed 0
電商們 讓軟文推廣像海嘯般的勢不可擋 http://www.lalz.net/2515.html http://www.lalz.net/2515.html#respond Sun, 12 Dec 2021 10:21:02 +0000

  在互聯(lián)網(wǎng)電子商務(wù)中,百分之九十的站長朋友們都知道軟文宣傳的重要性,但通過搜索引擎找到需要信息的網(wǎng)民成幾何式增長,從而產(chǎn)生網(wǎng)站排名,

  因為軟文的性價比高,并且達到的效果也是不容忽視的,擴大個人及企業(yè)的網(wǎng)絡(luò)知名度、網(wǎng)絡(luò)品牌的崛起,甚至像海爾這樣的大牌企業(yè),國際500強的企業(yè)也都在運用這種方式。

  軟文之所以備受重視,其實直接原因就是硬廣告的價格上升效果下降、除了文字形式的軟文,其他廣告展現(xiàn)形式的費用上漲。另一個原因是,軟文具有極高的性價比。在軟文寫作中還有不同的表現(xiàn)方式。

  一、疑問式:以標題提出問題,文章進行詳細的分析解答,從中進行產(chǎn)品、人物的穿插,形成軟性廣告。例如“如何讓三十歲的人再長高1公分?”、“可抗癌的水是真的嗎?”、“是什么讓女人容光煥發(fā)?重獲新生”等等,通過提問引起觀點、話題,吸引人們關(guān)注。

  行文時進行以解答疑問為主,當解答時可加入一些需要

  二、小故事形式:海爾在宣傳品牌、營造影響力的時候,其中以工廠內(nèi)員工事跡、生活,進行故事式的描述。也是筆者喜歡的其中一種。例如:“海爾員工的一天”“1.2億買不走的秘方”、“神奇的胰島素”

  故事是人們普遍容易接受的一種形式,故事中要充滿一定的,知識性、合理性、趣味性。

  三、情感式:軟文的情感式的表達信息傳達量大、對目標人群的針對性強。例如:“女人,你的名字是天使”、“我與痘痘奮戰(zhàn)的30天”等等。

  人都是有感情的,沒有幾個是冷血,感情式最容易打動人,較為容易影響消費者的內(nèi)心,甚至是消費者主動去尋找相關(guān)信息。所以,情感式的營銷,一直也是妙用無窮的。

  四、恐嚇式:這種行文手法,需要具有一定的文字控制力,把握好,不可過事實證明,恐嚇形式的效果要比一般良性話題,更有加深印象的效果。例如:“高血壓,心臟病的前兆!”、“容易骨折,缺鈣的表現(xiàn)!”等等。

  此種形式,需要用詞嚴謹,一定要把握好度。文字的控制力要求較高。目前筆者見到的這類廣告通常都以牛皮癬廣告形式展現(xiàn)了。

  五、促銷式:運用較為簡單,通常在做網(wǎng)絡(luò)營銷最常用的一種軟文形式。例如:“XXX特價促銷最后三天”、“讓90后女生瘋搶的XXX最后搶購期限”、“爆款小西裝三次斷貨”等等。

  較為常見,表現(xiàn)出急促性、攀比性心理進行刺激。促使你產(chǎn)生購買欲。

  六、事件新聞:為宣傳找個切入點,以相關(guān)企業(yè)或人物,之前未發(fā)生過的,但近期發(fā)生的新鮮事,進行宣傳。例如: 筆者師父的近期案例“XX團購網(wǎng)CEO手術(shù)事件”、“XXX突破最新技術(shù)”、“XXX企業(yè),突破1億營業(yè)額”等等。

  直接表現(xiàn)出企業(yè)、個人的實力,需要緊密結(jié)合企業(yè)、個人的自身條件,與

  綜上所述:在企業(yè)或個人宣傳推廣中,絕不是單獨只用某一種形式的軟文寫法,文章中對宣傳目標進行穿插滲透,整個的宣傳流程中,每種寫作形式也是互相穿插的。多種表現(xiàn)形式,加深受眾人群的印象,潛移默化的產(chǎn)生影響力。

  當掌握以上寫作手法后,把軟文的幾種形式進行混合使用,對企業(yè)、人物進行連續(xù)的報道,宣傳。從而達到海嘯般的轟動效果,使人久久不能忘懷。

  靈龍原創(chuàng) A5首發(fā) 作者博客 http://www.mylinglong.com/ 轉(zhuǎn)載請尊重勞動者成果,保留版權(quán)。


 
]]>
http://www.lalz.net/2515.html/feed 0
辯證分析團購模式的優(yōu)缺點 http://www.lalz.net/2514.html http://www.lalz.net/2514.html#respond Sun, 12 Dec 2021 10:21:01 +0000

  如今,打開

  許多朋友批判團購是一種省去經(jīng)銷商、人力成本、宣傳、營銷等成本,只保留制作和生產(chǎn)成本的不合理的銷售模式,這樣的模式勢必造成質(zhì)量的不保和后期價格的飆升。而且這種低價的優(yōu)惠也會導(dǎo)致消費者的不合理的超前消費,會降低他們的后續(xù)消費能力,而且由于習慣了團購的超低價格,一旦商家恢復(fù)原價就會造成消費者的心理障礙。

  以上觀點雖說有其合理之處,但是這些缺陷從另一側(cè)面來看,又何嘗不是團購優(yōu)于傳統(tǒng)銷售模式的優(yōu)點呢?

  一方面,團購這種省去經(jīng)銷商、人力成本、宣傳、營銷等成本,只保留制作和生產(chǎn)成本的模式有其合理之處。對于某些商家來說,就算沒有顧客來消費他們也要虧本經(jīng)營下去,不僅店面維持費,管理費等是一筆大的支出,最讓商家心疼的可能是讓員工坐著拿工資吧?所以與其,白白等著,還不如以一種低價的方式去吸引顧客,賺點知名度。而且有頭腦的商家一定知道想要留住顧客就應(yīng)該從質(zhì)量和服務(wù)做起。如筆者有次去的一家西餐廳就不錯,也是幾十塊錢的超實惠價,但是服務(wù)和質(zhì)量一點都不打折扣。這樣的商家顧客去了一次一定會想去第二次。

  另一方面,對于消費者而言。超前消費也不是什么壞事,相信大多數(shù)消費者就算提前消費自己,心里還是會有個盤算的。而且可能他們以前都不敢去的地方,通過團購可以輕松享受了。雖然可能習慣了團購的優(yōu)惠價,但是只要覺得商家的服務(wù)和質(zhì)量對的起價格,消費者還是不會含糊的。筆者一朋友一直很想去一家知名的美發(fā)機構(gòu),但是聽說做個發(fā)型價格不菲,所以一直不敢下手。早前,花100來塊團了一套,輕輕松松做了一款自己有史以來最滿意的發(fā)型。現(xiàn)在逢人就介紹那家機構(gòu),還稱以后就定點那里了。

  在各位不分青紅皂白批判團購模式的缺陷時,大家不妨也仔細考慮一下,團購能得以在這么快的時間里發(fā)展得這么火熱,必然也有其合理之處。如果真像大伙說的那么一文不值,那消費者和商家也不會買團購網(wǎng)的賬。所以我們應(yīng)該辯證地看待團購模式問題,其實團購也有優(yōu)點。

  本文原創(chuàng)自視團網(wǎng) http://www.videotuan.com 轉(zhuǎn)載請注明出處,謝謝


 
]]>
http://www.lalz.net/2514.html/feed 0