国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 網站 > 建站經驗 > 正文

asp入門:asp如何保存、數據

2019-11-02 14:56:08
字體:
來源:轉載
供稿:網友

下面我們就來看看實例教程吧.

 先來看看提交的頁面:

<FORM ACTION="saveinfo.asp" METHOD=post>
<!-- Your fields here -->

<INPUT TYPE=submit value="Submit">
</FORM>

下面看看接收數據并保存的頁面.

 <%
Set fs = CreateObject("Scripting.FileSystemObject")
Folderpath=server.mappath("") & "/cgi-bin/messages143718" 
Wcounter=Folderpath &"/counter.txt"

Set fs = CreateObject("Scripting.FileSystemObject") 
    if fs.FolderExists(Folderpath) then 
        Set a = fs.OpenTextFile(Wcounter) 
        hits = Clng(a.ReadLine) 
     

中國歷史文化[www.9-39.com/html/china/]
   hits = hits + 1 
        a.close 
    else 
        Set a = fs.CreateFolder(Folderpath) 
        hits=1
    end if

Set a = fs.CreateTextFile(Wcounter,True) 
a.WriteLine(hits) 
a.Close
Set fs=nothing

Set fs = CreateObject("Scripting.FileSystemObject") 
Set a = fs.CreateTextFile(Folderpath & "" & hits & ".txt") 
   For Each x In Request.Form
      a.WriteLine(x &": " & Request.Form(x))
   Next
a.Close 
Set a=nothing 
Set fs=nothing 
%>

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 灵川县| 电白县| 柯坪县| 伊宁市| 神农架林区| 县级市| 石首市| 子洲县| 张家口市| 阿瓦提县| 沛县| 慈溪市| 花莲县| 岳普湖县| 马鞍山市| 兰州市| 高青县| 阳高县| 遂平县| 策勒县| 安远县| 潮安县| 海晏县| 花莲市| 宜良县| 巩留县| 天全县| 西藏| 潞城市| 汝城县| 拜泉县| 东海县| 墨竹工卡县| 遵义市| 辽源市| 浦县| 平远县| 石林| 乌什县| 上林县| 洪洞县|