asp+access统计图源码（我想要一个用asp和access制作的一个网站访问次数统计量的代码（包括access的建立、连接） 想要个完整的、）

本文目录

• 我想要一个用asp和access制作的一个网站访问次数统计量的代码（包括access的建立、连接） 想要个完整的、
• 找一款asp+access源代码 高分，追加
• 初学asp6.0，跪求对ACCESS数据库增,删,查,改的源码
• 求一个ASP加access编写的查询代码
• 如何用asp+access做个年龄、工龄统计
• 关于图片通过asp代码上传到access数据库，又从access数据库显示到网页的代码

我想要一个用asp和access制作的一个网站访问次数统计量的代码（包括access的建立、连接） 想要个完整的、

《%
’access建立Keyname和Number两个必须的字段。
set conn =server.createobject("adodb.connection")
strcon="provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbfile & ";"
conn.open strcon
set rs = Server.CreateObject("ADODB.Recordset")
rs.open "select * from setting where keyname=’counter’",conn,1,3
if rs.eof then
rs.addnew
rs("keyname")="counter"
rs("number")=1
rs("text")="计数器"
response.Write("1")
rs.update
else
response.Write(rs("number"))
if request.Cookies("mainpage")《》"1" then
rs("number")=rs("number")+1
response.Cookies("mainpage")="1"
response.Cookies("mainpage").Expires=date()+1
rs.update
end if
end if
rs.close
set rs=nothing

找一款asp+access源代码 高分，追加

《html》
《head》
《style type="text/css"》
《!--
body {font-size:9pt}
td {font-size:9pt}
--》
《/style》
***隐藏网址***
***隐藏网址***
《!-- byte, table, font, ty, td{font-size:9pt;font-family:Arial} a:link{text-decoration:none;underline:#666666} a:visited{text-decoration:none;color:#666666} a:active{text-decoration:none;color:#666666} a:hover{text-decoration:underline;color:006699}--》《/style》
《title》欢迎光临上海蒂赛科技有限公司主页!《/title》
《script language="JavaScript" type="text/JavaScript"》
《!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//--》
《/script》
《/head》
《SCRIPT language=javascript src="verticlewin1.js" type=text/javascript》《/SCRIPT》《SCRIPT language=javascript》
《!--
function xufen(){
var xu=document.mounting.products;
if (xu.value==""){
alert("请选择下拉列表中的具体型号！");
}else{
var fen="files/"+xu.options.value;
window.open(fen);
}}
//--》
《/SCRIPT》
《body topmargin="0" leftmargin="0" link="#C0C0C0" vlink="#C0C0C0" alink="#C0C0C0"》
《div align="center"》
《HEAD》《TITLE》欢迎光临上海蒂赛科技有限公司主页!《/TITLE》
***隐藏网址***
《meta name="Author" content="Hypo"》
《meta name="Contact" content="Hypo@Wz163.com"》
《meta name="Copyright" content="Hypo&Zhonghuan Tech"》
《link href="Images/css.css" rel="stylesheet" type="text/css"》
《script Language="JavaScript"》
var h;
var w;
var l;
var t;
var topMar = 3;
var leftMar = -10;
var space = 2;
var isvisible;
var MENU_SHADOW_COLOR=’#999999’;
var global = window.document
global.fo_currentMenu = null
global.fo_shadows = new Array
function HideMenu()
{
var mX;
var mY;
var vDiv;
var mDiv;
if (isvisible == true)
{
vDiv = document.all("menuDiv");
mX = window.event.clientX + document.body.scrollLeft;
mY = window.event.clientY + document.body.scrollTop;
if ((mX 《 parseInt(vDiv.style.left)) || (mX 》 parseInt(vDiv.style.left)+vDiv.offsetWidth) || (mY 《 parseInt(vDiv.style.top)-h) || (mY 》 parseInt(vDiv.style.top)+vDiv.offsetHeight)){
vDiv.style.visibility = "hidden";
isvisible = false;
}
}
}
function ShowMenu(vMnuCode,tWidth) {
vSrc = window.event.srcElement;
vMnuCode = "《table id=’submenu’ cellspacing=1 cellpadding=3 style=’width:"+tWidth+"’ class=tableborder1 onmouseout=’HideMenu()’》《tr height=23》《td nowrap align=left class=tablebody1》" + vMnuCode + "《/td》《/tr》《/table》";
h = vSrc.offsetHeight;
w = vSrc.offsetWidth;
l = vSrc.offsetLeft + leftMar+4;
t = vSrc.offsetTop + topMar + h + space-2;
vParent = vSrc.offsetParent;
while (vParent.tagName.toUpperCase() != "BODY")
{
l += vParent.offsetLeft;
t += vParent.offsetTop;
vParent = vParent.offsetParent;
}
menuDiv.innerHTML = vMnuCode;
menuDiv.style.top = t;
menuDiv.style.left = l;
menuDiv.style.visibility = "visible";
isvisible = true;
makeRectangularDropShadow(submenu, MENU_SHADOW_COLOR, 4)
}
function makeRectangularDropShadow(el, color, size)
{
var i;
for (i=size; i》0; i--)
{
var rect = document.createElement(’div’);
var rs = rect.style
rs.position = ’absolute’;
rs.left = (el.style.posLeft + i) + ’px’;
rs.top = (el.style.posTop + i) + ’px’;
rs.width = el.offsetWidth + ’px’;
rs.height = el.offsetHeight + ’px’;
rs.zIndex = el.style.zIndex - i;
rs.backgroundColor = color;
var opacity = 1 - i / (i + 1);
rs.filter = ’alpha(opacity=’ + (100 * opacity) + ’)’;
el.insertAdjacentElement(’afterEnd’, rect);
global.fo_shadows = rect;
}
}
var About= ’ 《a style=font-size:9pt;line-height:14pt; href=\"About.asp\"》《font color="#EEEEEE"》公 司 简 介《/font》《/a》 《br》 《a style=font-size:9pt;line-height:14pt; href=\"Culture.asp\"》《font color="#EEEEEE"》公 司 文 化《/font》《/a》 《br》 《a style=font-size:9pt;line-height:14pt; href=\"Organize.asp\"》《font color="#EEEEEE"》组 织 机 构《/font》《/a》 《br》 《a style=font-size:9pt;line-height:14pt; href=\"Principle.asp\"》《font color="#EEEEEE"》精 神 理 念《/font》《/a》 《br》 《a style=font-size:9pt;line-height:14pt; href=\"Contact.asp\"》《font color="#EEEEEE"》联 系 我 们《/font》《/a》 ’
var News= ’ 《a style=font-size:9pt;line-height:14pt; href=\"News.asp\"》《font color="#EEEEEE"》企 业 新 闻《/font》《/a》 《br》 《a style=font-size:9pt;line-height:14pt; href=\"yeNews.asp\"》《font color="#EEEEEE"》业 内 资 讯《/font》《/a》 ’
var Product= ’ 《a style=font-size:9pt;line-height:14pt; href=\"Product.asp\"》《font color="#EEEEEE"》产 品 展 示《/font》《/a》 《br》 《a style=font-size:9pt;line-height:14pt; href=\"Products.asp\"》《font color="#EEEEEE"》产 品 分 类《/font》《/a》 《br》 《a style=font-size:9pt;line-height:14pt; href=\"search.asp\"》《font color="#EEEEEE"》产 品 搜 索《/font》《/a》 ’
var Job= ’ 《a style=font-size:9pt;line-height:14pt; href=\"Job.asp\"》《font color="#EEEEEE"》人 才 招 聘《/font》《/a》 《br》 《a style=font-size:9pt;line-height:14pt; href=\"Jobs.asp\"》《font color="#EEEEEE"》人 才 策 略《/font》《/a》 ’
var sale= ’ 《a style=font-size:9pt;line-height:14pt; href=\"Sale.asp\"》《font color="#EEEEEE"》国 内 市 场《/font》《/a》 《br》 《a style=font-size:9pt;line-height:14pt; href=\"Salea.asp\"》《font color="#EEEEEE"》国 外 市 场《/font》《/a》 ’
var server= ’ 《a style=font-size:9pt;line-height:14pt; href=\"Server.asp\"》《font color="#EEEEEE"》会 员 中 心《/font》《/a》 《br》 《a style=font-size:9pt;line-height:14pt; href=\"NetBook.asp\"》《font color="#EEEEEE"》留 言 中 心《/font》《/a》 《br》 《a style=font-size:9pt;line-height:14pt; href=\"E_shop.asp\"》《font color="#EEEEEE"》订 单 查 询《/font》《/a》 ’
var index= ’ 《a style=font-size:9pt;line-height:14pt; href=\"Default.asp\"》《font color="#EEEEEE"》网 站 首 页《/font》《/a》 《br》 《a style=font-size:9pt;line-height:14pt; href=\"Index.asp\"》《font color="#EEEEEE"》企业形象页《/font》《/a》 ’
var img= ’ 《a style=font-size:9pt;line-height:14pt; href=\"Honor.asp\"》《font color="#EEEEEE"》企 业 荣 誉《/font》《/a》 《br》 《a style=font-size:9pt;line-height:14pt; href=\"Img.asp\"》《font color="#EEEEEE"》企 业 形 象《/font》《/a》 ’
《/script》
《/head》
《BODY leftMargin=0 topMargin=0 marginheight="0" marginwidth="0" onmousemove="HideMenu()"》
《div align="center"》
《table width="100" border="0" align="center" cellpadding="0" cellspacing="0" class="ce"》
《tr》
***隐藏网址***
《param name="movie" value="top.swf"》
《param name="quality" value="High"》
《param name="loop" value="false"》
***隐藏网址***
《/object》《/td》
《/tr》
《/table》
《table width="780" border="0" cellpadding="0" cellspacing="0" class="ce"》
《tr》
***隐藏网址***
《param name="movie" value="swf/top.swf"》
《param name="quality" value="high"》
***隐藏网址***
《/object》《/td》
《/tr》
《tr》
《td height="1" background="images/aa1.gif"》《/td》
《/tr》
《/table》
《/div》
《table width="780" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#E7E3E7" id="table1" style="border-collapse: collapse"》
《tr》
《td bgcolor="#FFFFFF"》《table width="780" border="0" align="center" cellpadding="0" id="table2" style="border-collapse: collapse"》
《tr》
《td width="250" valign="top" rowspan="2"》
《div align="center"》
《table border="1" style="border-collapse: collapse; font-size:9pt; font-family:Arial" width="169" id="table18" height="120" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0"》
《tr》
《td height="21" style="font-size: 9pt; font-family: Arial"》 《img border="0" src="images/case.gif" width="164" height="23"》《/td》
《/tr》
《tr》
《td valign="top" style="font-size: 9pt; font-family: Arial"》
《div align="center"》 《img border="0" src="images/arrow2.gif" width="164" height="23"》
《table border="0" style="border-collapse: collapse; font-size:9pt; font-family:Arial" width="87%" id="table19" cellpadding="0" height="61"》
《tr》
《td height="61" style="font-size: 9pt; font-family: Arial"》
《p style="line-height: 150%"》 《img border="0" src="images/arrow1.gif" width="6" height="7"》《span lang="zh-cn"》东方号顺利下水运行良好《/span》《img border="0" src="images/arrow1.gif" width="6" height="7"》《img border="0" src="images/arrow1.gif" width="6" height="7"》东方造船厂制定使用品牌《br》
《img border="0" src="images/arrow1.gif" width="6" height="7"》巴西引进斯达利系列产品《/td》
《/tr》
《/table》
《/div》《/td》
《/tr》
《/table》
《table border="1" style="border-collapse: collapse; font-size:9pt; font-family:Arial" width="169" id="table18" height="120" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0"》
《tr》
《td height="21" style="font-size: 9pt; font-family: Arial"》 《img border="0" src="images/case_new.gif" width="164" height="23"》《/td》
《/tr》
《tr》
《td valign="top" style="font-size: 9pt; font-family: Arial"》
《div align="center"》 《img border="0" src="images/arrow2.gif" width="164" height="23"》
《table border="0" style="border-collapse: collapse; font-size:9pt; font-family:Arial" width="87%" id="table19" cellpadding="0" height="61"》
《tr》
《td height="61" style="font-size: 9pt; font-family: Arial"》
《p style="line-height: 150%"》 《img border="0" src="images/arrow1.gif" width="6" height="7"》《a href="new1.asp"》我厂厂房已顺利搬迁(组图《/a》)《img src="images/hot.gif" width="25" height="12"》《br》
《img border="0" src="images/arrow1.gif" width="6" height="7"》《a href="new2.asp"》我厂正在组装国内最大的高弹性联轴器(组图《/a》)《img src="images/new02.gif" width="35" height="20"》《br》
《/td》
《/tr》
《/table》
《/div》《/td》
《/tr》
《/table》

《table border="1" style="border-collapse: collapse; font-size:9pt; font-family:Arial" width="169" id="table7" height="139" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0"》
《tr》
《td height="21" style="font-size: 9pt; font-family: Arial"》 《img border="0" src="images/jiangxiang.gif" width="164" height="23"》《/td》
《/tr》
《tr》
《td valign="top" style="font-size: 9pt; font-family: Arial"》
《div align="center"》 《img border="0" src="images/arrow2.gif" width="164" height="23"》
《table border="0" style="border-collapse: collapse; font-size:9pt; font-family:Arial" width="87%" id="table8" cellpadding="0" height="241"》
《tr》
《td height="19" style="font-size: 9pt; font-family: Arial"》 《img border="0" src="images/arrow1.gif" width="6" height="7"》斯达利获得3项大奖 《/td》
《/tr》
《tr》
《td height="222" style="font-size: 9pt; font-family: Arial"》 《img border="0" src="images/jiangxiang1.gif" width="154" height="205"》《/td》
《/tr》
《/table》
《/div》《/td》
《/tr》
《/table》
《p》
《/div》《/td》
《/tr》
《tr》
《td height="430" valign="top"》
《img border="0" src="images/top3.gif" width="580" height="85"》
《table border="0" style="border-collapse: collapse" width="605" id="table9" height="138"》
《tr》
《td width="26"》 《/td》
《td width="380"》
《table border="0" style="border-collapse: collapse" width="361" id="table10" cellpadding="3"》
《tr》
《td width="355" valign="top" colspan="2"》 《/td》
《/tr》
《tr》
《td width="7" valign="top"》 《img border="0" src="images/arrow1.gif" width="6" height="7"》《/td》
《td width="341"》 《span lang="zh-cn"》 配套我公司GTL5021F型高弹性联轴器的中国首批6M453C型柴油机（2200KW/600r/min）5000吨多用途船和345TEU集装箱船几年来运行良好。《/span》《/td》
《/tr》
《tr》
《td width="7" valign="top"》 《img border="0" src="images/arrow1.gif" width="6" height="7"》 《/td》
《td width="341"》 和GTL16021F型联轴器（160KNm）配套的4410KW/425min的德国MAK6M601AK柴油机在越南装船运行。《/td》
《/tr》
《tr》
《td width="7" valign="top"》 《img border="0" src="images/arrow1.gif" width="6" height="7"》 《/td》
《td width="341"》 WX25M-400L型干式火星熄灭器已经安装于江南造船集团生产的8200m液化气船，该船入德国GL船级社，性能优越。《/td》
《/tr》
《tr》
《td width="7" valign="top"》 《img border="0" src="images/arrow1.gif" width="6" height="7"》 《/td》
《td width="341"》 我公司新开发的GN820型硅油减震器已和广州柴油机厂的8320型柴油机系列一并配套使用。《/td》
《/tr》
《tr》
《td width="7" valign="top"》 《img border="0" src="images/arrow1.gif" width="6" height="7"》 《/td》
《td width="341"》 YZ系列圆锥型橡胶减震器（负载：100-5000kgf），已和振华港机、上海电信和淄博柴油机厂等单位配套联合使用。《/td》
《/tr》
《tr》
《td width="7" valign="top"》 《img border="0" src="images/arrow1.gif" width="6" height="7"》 《/td》
《td width="341" valign="top"》 上海蒂赛科技有限公司早已获得ISO9001质量体系认证。《/td》
《/tr》
《tr》
《td width="355" colspan="2" valign="top"》 《img border="0" src="images/iso.gif" width="362" height="151"》《/td》
《/tr》
《/table》《/td》
《td width="193" valign="top"》
《table border="1" style="border-collapse: collapse; font-size:9pt; font-family:Arial" width="156" id="table13" height="139" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0"》
《tr》
《td height="21" style="font-size: 9pt; font-family: Arial"》 《img border="0" src="images/productlist.gif" width="184" height="21" 》《/td》
《/tr》
《tr》
《td valign="top" style="font-size: 9pt; font-family: Arial"》
《div align="center"》 《img border="0" src="images/arrow2.gif" width="184" height="23"》
《table border="0" style="border-collapse: collapse; font-size:9pt; font-family:Arial" width="72%" id="table14" cellpadding="2" height="241" cellspacing="2"》
《tr》
《td height="222" style="font-size: 9pt; font-family: Arial" valign="top"》
《script language="JavaScript"》
var index = 50;
link = new Array(50);
text = new Array(50);
text =’《b》联轴器部分(主要产品)《/b》’
text =’GTL系列高弹性联轴器’
text =’TL系列高弹性联轴器’
text =’CTL系列高弹性联轴器’
text =’XL系列高弹性联轴器’
text =’SL系列高弹性联轴器’
text =’JXL系列联轴器’
text =’GNL系列联轴器’
text =’DML系列高弹性联轴器《br》’
text =’《font color=ffffff》sdfsdf《/font》’
text =’《b》联轴器(国标和部标产品)《/b》’
text =’DB3202-87挠性鼓形联轴器’
text =’GB4323-84弹性套柱销联轴器’
text =’GB5272-85梅花型弹性联轴器’
text =’GB5844-86轮胎式联轴器’
text =’GB5014-85弹性柱销联轴器’
text =’GB5015-85弹性柱销齿式联轴器’
text =’GB6069-85滚子链联轴器’
text =’GICLZ4223-86鼓形齿式联轴器’
text =’GIICL4378-86鼓形齿式联轴器’
text =’JS/jsb系列蛇形弹簧联轴器’
text =’’
text =’GB5843-86型凸缘联轴器’
text =’CL型齿轮联轴器’
text =’老CLZ型齿轮联轴器’
text =’滑块联轴器(GB4384-86)’
text =’立式夹壳联轴器(HG5-213-65)’
text =’《font color=ffffff》sdfsdf《/font》’
text =’《b》减震器部分《/b》’
text =’YXN压入式扭振减震器’
text =’GN硅油扭振减震器’
text =’SH系列双板式减震器’
text =’JB系列夹板式减震器’
text =’PB系列平板式减震器’
text =’SJ系列斜置式减震器’
text =’JG系列剪切式减震器’
text =’JZ系列支柱式减震器’
text =’LJZ系列支柱式减震器’
text =’DJ系列剪切式减震器’
text =’E系列减震器’
text =’EA系列减震器’
text =’《font color=ffffff》sdfsdf《/font》’
text =’《b》消声器部分《/B》’
text =’WX系列微孔式消声器’
text =’KXM系列干式灭火式消声器’
text =’AX系列消声器’
text =’HMX系列消声器’
text =’《font color=ffffff》sdfsdf《/font》’
text =’《font color=ffffff》sdfsdf《/font》’
text =’《b》 更多型号...《/b》’
document.write ("《marquee scrollamount=’1’ scrolldelay=’10’ direction=’up’ width=’176’ id=flink height=’200’ onmouseover=flink.stop() onmouseout=flink.start()》《table border=’0’ cellspacing=’0’ cellpadding=’0’ width=’100%’》");
for (i=0;i《index;i+=1){
document.write ("《tr》《td width=’176’》《font size=’2’》"+text+"《/font》《/td》");}
document.write ("《/table》《/marquee》");
《/script》《/td》
《/tr》

初学asp6.0，跪求对ACCESS数据库增,删,查,改的源码

// GridImageDlg.cpp : implementation file
//
#include "stdafx.h"
#include "GridImage.h"
#include "GridImageDlg.h"
#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE = __FILE__;
#endif
extern CGridImageApp theApp;//james???
/////////////////////////////////////////////////////////////////////////////
// CAboutDlg dialog used for App About
class CAboutDlg : public CDialog
{
public:
CAboutDlg();
// Dialog Data
//{{AFX_DATA(CAboutDlg)
enum { IDD = IDD_ABOUTBOX };
//}}AFX_DATA
// ClassWizard generated virtual function overrides
//{{AFX_VIRTUAL(CAboutDlg)
protected:
virtual void DoDataExchange(CDataExchange* pDX); // DDX/DDV support
//}}AFX_VIRTUAL
// Implementation
protected:
//{{AFX_MSG(CAboutDlg)
//}}AFX_MSG
DECLARE_MESSAGE_MAP()
};
CAboutDlg::CAboutDlg() : CDialog(CAboutDlg::IDD)
{
//{{AFX_DATA_INIT(CAboutDlg)
//}}AFX_DATA_INIT
}
void CAboutDlg::DoDataExchange(CDataExchange* pDX)
{
CDialog::DoDataExchange(pDX);
//{{AFX_DATA_MAP(CAboutDlg)
//}}AFX_DATA_MAP
}
BEGIN_MESSAGE_MAP(CAboutDlg, CDialog)
//{{AFX_MSG_MAP(CAboutDlg)
// No message handlers
//}}AFX_MSG_MAP
END_MESSAGE_MAP()
/////////////////////////////////////////////////////////////////////////////
// CGridImageDlg dialog
CGridImageDlg::CGridImageDlg(CWnd* pParent /*=NULL*/)
: CDialog(CGridImageDlg::IDD, pParent)
{
//{{AFX_DATA_INIT(CGridImageDlg)
// NOTE: the ClassWizard will add member initialization here
//}}AFX_DATA_INIT
// Note that LoadIcon does not require a subsequent DestroyIcon in Win32
m_hIcon = AfxGetApp()-》LoadIcon(IDR_MAINFRAME);
}
void CGridImageDlg::DoDataExchange(CDataExchange* pDX)
{
CDialog::DoDataExchange(pDX);
//{{AFX_DATA_MAP(CGridImageDlg)
// NOTE: the ClassWizard will add DDX and DDV calls here
//}}AFX_DATA_MAP
DDX_GridControl(pDX, IDC_GRIDCTRL, m_GridCtrl);

}
BEGIN_MESSAGE_MAP(CGridImageDlg, CDialog)
//{{AFX_MSG_MAP(CGridImageDlg)
ON_NOTIFY(GVN_BEGINLABELEDIT, IDC_GRIDCTRL, OnGridSelChange )
ON_WM_SYSCOMMAND()
ON_WM_PAINT()
ON_WM_QUERYDRAGICON()
ON_BN_CLICKED(IDC_ADD, OnAdd)
ON_BN_CLICKED(IDC_INSERT, OnInsert)
ON_BN_CLICKED(IDC_DELETE, OnDelete)
ON_BN_CLICKED(IDC_SAVE, OnSave)
//}}AFX_MSG_MAP
END_MESSAGE_MAP()
/////////////////////////////////////////////////////////////////////////////
// CGridImageDlg message handlers
BOOL CGridImageDlg::OnInitDialog()
{
CDialog::OnInitDialog();
try
{
pRecordset.CreateInstance("ADODB.Recordset");
pRecordset-》Open("SELECT * FROM 基本信息图片",_variant_t((IDispatch*)theApp.m_pConnection,true),adOpenStatic,adLockOptimistic,adCmdText);
}

catch(_com_error e)///捕捉异常
{
AfxMessageBox("读取数据库失败!");///显示错误信息
}
//获得主程序的路径并建立一个文件夹。
CString sPath;
GetModuleFileName(NULL,sPath.GetBufferSetLength (MAX_PATH+1),MAX_PATH);
sPath.ReleaseBuffer ();
int nPos;
nPos=sPath.ReverseFind (’\\’);
sPath=sPath.Left (nPos);
CString strCrePath; //在程序路径下创建一个文件夹
strCrePath.Format("%s%s",sPath,_T("\\临时图片\\"));
CreateDirectory(strCrePath,NULL);
pBuffer = NULL;
index = 1;
m_GridCtrl.SetColumnCount(7);
m_GridCtrl.SetFixedRowCount(1);
m_GridCtrl.SetItemText(0, 0, _T("图片编号"));
m_GridCtrl.SetItemText(0, 1, _T("桥梁编号"));
m_GridCtrl.SetItemText(0, 2, _T("图片数据"));
m_GridCtrl.SetItemText(0, 3, _T("图片类别名称"));
m_GridCtrl.SetItemText(0, 4, _T("图片后缀"));
m_GridCtrl.SetItemText(0, 5, _T("拍摄日期"));
m_GridCtrl.SetItemText(0, 6, _T("图片描述"));
int m_ncount ;
m_ncount=pRecordset-》GetRecordCount();
m_GridCtrl.SetRowCount(m_ncount+1);
//设置图片数据栏灰色
while (m_ncount 》 0)
{
m_GridCtrl.SetItemBkColour(m_ncount,2,RGB(236,233,216));
m_GridCtrl.SetItemText(m_ncount,2,_T(""));
m_ncount--;
}

int row = 1;
while (!pRecordset-》adoEOF)
{
CString str;
FieldsPtr pFields = pRecordset-》Fields;

FieldPtr pField = pFields-》GetItem(0L);
if (pField-》Value.vt != VT_NULL)
m_GridCtrl.SetItemText(row, 0L,(char*)(_bstr_t)pField-》Value);
pField = pFields-》GetItem(1L);
if (pField-》Value.vt != VT_NULL)
m_GridCtrl.SetItemText(row, 1L, (char*)(_bstr_t)pField-》Value);
pField = pFields-》GetItem(2L);
if (pField-》Value.vt != VT_NULL)
m_GridCtrl.SetItemText(row, 3L,(char*)(_bstr_t)pField-》Value);
pField = pFields-》GetItem(3L);
if (pField-》Value.vt != VT_NULL)
m_GridCtrl.SetItemText(row, 4L, (char*)(_bstr_t)pField-》Value);
pField = pFields-》GetItem(5L);
if (pField-》Value.vt != VT_NULL)
m_GridCtrl.SetItemText(row, 5L, (char*)(_bstr_t)pField-》Value);
pField = pFields-》GetItem(6L);
if (pField-》Value.vt != VT_NULL)
m_GridCtrl.SetItemText(row, 6L, (char*)(_bstr_t)pField-》Value);
//读取图片数据
nSize = pRecordset-》GetFields()-》GetItem("图片数据")-》ActualSize;
if (nSize 《= 0)
{
m_GridCtrl.SetItemText(row,2L,_T(""));
}
if(nSize 》 0)
{
_variant_t varBLOB;
varBLOB = pRecordset-》GetFields()-》GetItem("图片数据")-》GetChunk(nSize);
if(varBLOB.vt == (VT_ARRAY | VT_UI1))
{
if(pBuffer = new BYTE ) ///重新申请必要的存储空间
{
char *pBuf = NULL;
SafeArrayAccessData(varBLOB.parray,(void **)&pBuf);
memcpy(pBuffer,pBuf,nSize); ///复制数据到缓冲区
SafeArrayUnaccessData (varBLOB.parray);
}
}
//保存到临时文件中
CString strExt;
strExt.Format("%s%s",_T("."),m_GridCtrl.GetItemText(row,4));
CString str;
str.Format("%s%d%s",strCrePath,index,strExt); //文件名和后缀名
CFile outFile(str,CFile::modeCreate|CFile::modeWrite);
outFile.Write(pBuffer,nSize);
CString strindex;
strindex.Format("%d",index);
m_GridCtrl.SetItemText(row,2,strindex);
index++;
}
row++;
pRecordset-》MoveNext();
}
return TRUE; // return TRUE unless you set the focus to a control
}
void CGridImageDlg::OnSysCommand(UINT nID, LPARAM lParam)
{
if ((nID & 0xFFF0) == IDM_ABOUTBOX)
{
CAboutDlg dlgAbout;
dlgAbout.DoModal();
}
else
{
CDialog::OnSysCommand(nID, lParam);
}
}
// If you add a minimize button to your dialog, you will need the code below
// to draw the icon. For MFC applications using the document/view model,
// this is automatically done for you by the framework.
void CGridImageDlg::OnPaint()
{
if (IsIconic())
{
CPaintDC dc(this); // device context for painting
SendMessage(WM_ICONERASEBKGND, (WPARAM) dc.GetSafeHdc(), 0);
// Center icon in client rectangle
int cxIcon = GetSystemMetrics(SM_CXICON);
int cyIcon = GetSystemMetrics(SM_CYICON);
CRect rect;
GetClientRect(▭);
int x = (rect.Width() - cxIcon + 1) / 2;
int y = (rect.Height() - cyIcon + 1) / 2;
// Draw the icon
dc.DrawIcon(x, y, m_hIcon);
}
else
{
CDialog::OnPaint();
}
}
// The system calls this to obtain the cursor to display while the user drags
// the minimized window.
HCURSOR CGridImageDlg::OnQueryDragIcon()
{
return (HCURSOR) m_hIcon;
}
void CGridImageDlg::OnAdd()
{
//添加一行
int rowcount = m_GridCtrl.GetRowCount();
m_GridCtrl.SetRowCount(rowcount+1);
//设置该行属性，颜色，不可以修改，字段
m_GridCtrl.SetItemBkColour(rowcount,2,RGB(236,233,216));
CString strindex;
strindex.Format("%d",index);
m_GridCtrl.SetItemText(rowcount,2,strindex);
index++;
//添加日期数据
CTime nTime = CTime::GetCurrentTime();
CString str;
str.Format("%d-%d-%d",nTime.GetYear(),nTime.GetMonth(),nTime.GetDay());
m_GridCtrl.SetItemText(rowcount, 5, str);
//设置光标，自动滚动到最后一行
SCROLLINFO si;
si.cbSize = sizeof(SCROLLINFO);
si.fMask = SIF_POS;
si.nPos = 20000;
m_GridCtrl.SetScrollInfo(SB_VERT,&si,TRUE);
m_GridCtrl.SetFocusCell(rowcount,0);
}
void CGridImageDlg::OnInsert()
{
int row = m_GridCtrl.GetFocusCell().row;
if (row==-1)
{
MessageBox(_T("请选择插入位置"));
return;
}
int rowcount = m_GridCtrl.GetRowCount();
m_GridCtrl.InsertRow("",row);
m_GridCtrl.SetFocusCell(row,0);
m_GridCtrl.SetRowHeight(row,25);
//设置该行属性，颜色，字段
m_GridCtrl.SetItemBkColour(row,2,RGB(236,233,216));
CString strindex;
strindex.Format("%d",index);
m_GridCtrl.SetItemText(row,2,strindex);
index++;
//添加日期数据
CTime nTime = CTime::GetCurrentTime();
CString str;
str.Format("%d-%d-%d",nTime.GetYear(),nTime.GetMonth(),nTime.GetDay());
m_GridCtrl.SetItemText(row, 5, str);
m_GridCtrl.Invalidate();
}
void CGridImageDlg::OnDelete()
{
int row = m_GridCtrl.GetFocusCell().row;
if( row == -1)
{
MessageBox(_T("请选择要删除的行"));
return;
}
if (row 》 0)
{
m_GridCtrl.DeleteRow(row);
}
//设置光标位置
if (m_GridCtrl.GetRowCount() 》 row)
m_GridCtrl.SetFocusCell(row,0);
else
m_GridCtrl.SetFocusCell(m_GridCtrl.GetRowCount()-1,0);
m_GridCtrl.Invalidate();
}
void CGridImageDlg::OnSave()
{
try
{
pRecordset.CreateInstance("ADODB.Recordset");
pRecordset-》Open("SELECT * FROM 基本信息图片",_variant_t((IDispatch*)theApp.m_pConnection,true),adOpenStatic,adLockOptimistic,adCmdText);
}

catch(_com_error e)///捕捉异常
{
AfxMessageBox("读取数据库失败!");///显示错误信息
}
//删除所有记录
while (!pRecordset-》adoEOF)
{
pRecordset-》Delete(adAffectCurrent);///删除当前记录
pRecordset-》MoveNext();
}

int m_Rcount = 1;
while (m_Rcount 《 m_GridCtrl.GetRowCount())
{
pRecordset-》AddNew();
if(m_GridCtrl.GetItemText(m_Rcount,0)!="")
pRecordset-》Fields-》GetItem(_variant_t("图片编号"))-》Value=_bstr_t(m_GridCtrl.GetItemText(m_Rcount,0));
if(m_GridCtrl.GetItemText(m_Rcount,1)!="")
pRecordset-》Fields-》GetItem(_variant_t("桥梁编号"))-》Value=_bstr_t(m_GridCtrl.GetItemText(m_Rcount,1));

//获得文件名
CString m_sname;
m_sname.Format("%s",m_GridCtrl.GetItemText(m_Rcount,2));
//获取扩展名
CString m_sExt;
m_sExt.Format("%s%s",_T("."),m_GridCtrl.GetItemText(m_Rcount,4));
//获得主程序的路径
CString sPath;
GetModuleFileName(NULL,sPath.GetBufferSetLength (MAX_PATH+1),MAX_PATH);
sPath.ReleaseBuffer ();
int nPos;
nPos=sPath.ReverseFind (’\\’);
sPath=sPath.Left (nPos);
//获取图片数据
CFile f;
CString FilePathName;
FilePathName.Format("%s%s%s%s",sPath,_T("\\临时图片\\"),m_sname,m_sExt); //文件名和后缀名
CFileException e;
if(f.Open(FilePathName, CFile::modeRead | CFile::typeBinary, &e)) //打开了一个文件
{
int nSize = f.GetLength(); //先得到文件长度
BYTE * pBuffer = new BYTE ; //按文件的大小在堆上申请一块内存
if (f.Read(pBuffer, nSize) 》 0 ) //把文件读到pBuffer(堆上申请一块内存)
{ // +----------------------------------------------
BYTE *pBuf = pBuffer; ///下面这一大段是把pBuffer里的数据放到库中
VARIANT varBLOB;
SAFEARRAY *psa;
SAFEARRAYBOUND rgsabound;
if(pBuf)
{
rgsabound.lLbound = 0;
rgsabound.cElements = nSize;
psa = SafeArrayCreate(VT_UI1, 1, rgsabound);
for (long i = 0; i 《 (long)nSize; i++)
SafeArrayPutElement (psa, &i, pBuf++);
varBLOB.vt = VT_ARRAY | VT_UI1;
varBLOB.parray = psa;
pRecordset-》GetFields()-》GetItem("图片数据")-》AppendChunk(varBLOB);
}
delete pBuffer; //删掉堆上申请的那一块内存
pBuf=0; //以防二次乱用
f.Close();
}
}
if(m_GridCtrl.GetItemText(m_Rcount,3)!="")
pRecordset-》Fields-》GetItem(_variant_t("图片类别名称"))-》Value=_bstr_t(m_GridCtrl.GetItemText(m_Rcount,3));
if(m_GridCtrl.GetItemText(m_Rcount,4)!="")
pRecordset-》Fields-》GetItem(_variant_t("图片后缀"))-》Value=_bstr_t(m_GridCtrl.GetItemText(m_Rcount,4));
if(m_GridCtrl.GetItemText(m_Rcount,5)!="")
pRecordset-》Fields-》GetItem(_variant_t("拍摄日期"))-》Value=_bstr_t(m_GridCtrl.GetItemText(m_Rcount,5));
if(m_GridCtrl.GetItemText(m_Rcount,6)!="")
pRecordset-》Fields-》GetItem(_variant_t("图片描述"))-》Value=_bstr_t(m_GridCtrl.GetItemText(m_Rcount,6));
m_Rcount++;
pRecordset-》Update();
}

}
void CGridImageDlg::OnCancel()
{
//删除过程：先删除文件夹的文件，再删除文件夹
CString sPath;
GetModuleFileName(NULL,sPath.GetBufferSetLength (MAX_PATH+1),MAX_PATH);
sPath.ReleaseBuffer ();
int nPos;
nPos=sPath.ReverseFind (’\\’);
sPath=sPath.Left (nPos);
CString strDelPath;
strDelPath.Format("%s%s",sPath,_T("\\临时图片"));//获得临时图片的路径
CFileFind tempFind;
CString temp;
temp=strDelPath+"\\*.*";//遍历临时图片文件夹下所有文件
BeginWaitCursor();
BOOL IsFinded=tempFind.FindFile(temp);
while(IsFinded)
{
IsFinded=tempFind.FindNextFile();
if(!tempFind.IsDots())
{
if(tempFind.IsDirectory())
{
CString tempStr;
tempStr=tempFind.GetFileName();
tempStr=strDelPath+"\\"+tempStr;
DeleteFile(tempStr);
}
else
{
CString tempStr;
tempStr=strDelPath+"\\"+tempFind.GetFileName();
DeleteFile(tempStr);
}
}
}
tempFind.Close();
if(!RemoveDirectory(strDelPath))
{
MessageBox("删除目录失败！","警告信息",MB_OK);
}
//关闭窗口
CDialog::OnCancel();
}
void CGridImageDlg::OnGridSelChange(NMHDR * pNotifyStruct, LRESULT * result )
{
NM_GRIDVIEW* pNmgv = (NM_GRIDVIEW*)pNotifyStruct;
*result = 0;
//获得第3列，某行（首行除外）
if ((pNmgv-》iColumn == 2)&&(pNmgv-》iRow != 0))
{
dlgData.m_nrow = pNmgv-》iRow-1;
dlgData.m_sname = m_GridCtrl.GetItemText(pNmgv-》iRow,2);//获得索引名
dlgData.m_OutFileName = m_GridCtrl.GetItemText(pNmgv-》iRow,3); //获得文件名
dlgData.m_sEXt = m_GridCtrl.GetItemText(pNmgv-》iRow,4); //获得扩展名
if (dlgData.m_sname == "") //如果选中的行没有图片编号
{
CString strIndex;
strIndex.Format("%d",index);
m_GridCtrl.SetItemText(dlgData.m_nrow+1,2,strIndex);
dlgData.m_sname = strIndex;
index++;
}
if (dlgData.DoModal()==IDOK)
{
//如果浏览文件，获得文件名及扩展名
if (dlgData.FileTitle!=""||dlgData.FileEXt!="")
{
m_GridCtrl.SetItemText(dlgData.m_nrow+1,3,dlgData.FileTitle);
m_GridCtrl.SetItemText(dlgData.m_nrow+1,4,dlgData.FileEXt);
dlgData.FileTitle = "";
dlgData.FileEXt = "";
}
}
}
}

求一个ASP加access编写的查询代码

《%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%》
《%
’连接数据库，数据库名为phone
Dim conn,db
db="db/phone.mdb" ’数据库路径
Set conn=Server.CreateObject("adodb.connection")
conn.ConnectionString="provider = microsoft.jet.oledb.4.0;data source="&Server.MapPath(db)
conn.Open
If Err Then
Err.Clear
Set conn = Nothing
Response.Write "数据库连接失败"
Response.End
End If%》
***隐藏网址***
***隐藏网址***
《Head》
***隐藏网址***
《Title》ASP加access编写的查询代码《/Title》
《/Head》
《Body》
《table width="960" border="0" align="center" cellpadding="0" cellspacing="0"》
《tr》
《td width="341" height="29" align="center"》编号《/td》
《td width="396" align="center"》手机号《/td》
《td width="223" align="center"》 《/td》
《/tr》
《% Dim rs
set rs=server.CreateObject("adodb.recordset")
sql="select * from user"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write"没有数据"
end if
for i = 1 to rs.recordcount
if rs.eof then exit for%》
《tr》
《td height="28" align="center"》《%=rs("bianhao")%》《/td》
《td align="center"》《%=rs("phone")%》《/td》
《td align="center"》 《/td》
《/tr》
《%rs.movenext
next%》
《form action="" method="post" name="chaxvn"》 《tr》
《td height="28" align="center"》手机号：《input type="text" name="soso" /》《/td》
《td align="left"》《input type="submit" name="send" value="查询" /》《/td》
《td align="center"》 《/td》
《/tr》
《/form》
《% if request.form("send")="查询" then
if request.form("soso")="" then
response.write"《script》alert(’请输入手机号！’);history.back();《/script》"
response.end
end if
set rsc=server.CreateObject("adodb.recordset")
sqlc="select * from user where phone=’"&request.form("soso")&"’"
rsc.open sqlc,conn,1,1
if rsc.eof and rsc.bof then
response.write"没有数据"
else%》
《tr》
《td height="28" align="center"》《%=rsc("bianhao")%》《/td》
《td align="center"》《%=rsc("phone")%》《/td》
《td align="center"》 《/td》
《/tr》
《% end if
end if%》
《/table》
《/Body》
《/Html》

如何用asp+access做个年龄、工龄统计

《%
set rs=server.createobject(“adodb.recordset”)
sql=“select * from aaa where nl=40 and gl=15 order by id desc”
rs.open sql,conn,1,1
if rs.eof then
response.write “《div》暂时还没有数据！《/div》”
Else
do while not rs.eof
%》
《%=rs(“xm”)%》
《%
rs.movenext
loop
end if
rs.close
conn.close
set conn=nothing%》

关于图片通过asp代码上传到access数据库，又从access数据库显示到网页的代码

1:Upform.asp 内容如下.1：Upform.asp内容如下。
《html》
的《head》
《标题》图片上传“/标题”
***隐藏网址***
《style type="text/css"》
“！ -
身体（
背景颜色：＃000000;
）
- “
“/样式”“/头”
《SCRIPT language=JavaScript》
“！ -
功能checkform（）
（

如果（document.form1.filepath.value =="")（
警报（“请选择上传位置！”）;
document.form1.filepath.focus（）;
返回false;
）
返回true;
）
//--》
“/脚本”
的《Body》
《table align="center" cellpadding="4" cellspacing="1" class="toptable grid" border="1"》
《form name="form1" method="post" action="upfile.asp" enctype="multipart/form-data" onSubmit="return checkform();"》
《tr class=CommonListTitle height="25"》
《td height="22" align="left" valign="middle"》文件上传
《input type="hidden" name="act" value="upload"》
（此功能上传速度会有些慢！提交后请稍等！）“/运输署”
“/训练班”
《tr align="left" valign="middle" class="CommonListCell"》
《td“
《script language="javascript"》
功能setid（）
（
海峡=’《br》’;
如果（！window.form1.upcount.value）
window.form1.upcount.value = 1;
为（= 1，我“= window.form1.upcount.value，我+ +）
海峡+ =’文件’+一+’名：《input type="file" name="file’+i+’" style="width:250"》 《br》’;
window.upid.innerHTML =海峡+’《br》’;
）
“/脚本”
《li》上传个数：
《input name="upcount" type="text" value="1" size="10"》
《input name="Button" type="button" class="button" onClick="setid();" value="行销设定"》
位置：
《选择name="filepath"》
《option value=""》上传位置“/选项”》
《option value="../Passenger"》海底风光“/选项”》这里的值。是文件夹的名称。你要先创建好文件名称哦。如这里就是放在客运这个文件夹下面。
“/选择”》
“/李”
“/运输署”
“/训练班”
《tr align="center" valign="middle" class="CommonListCell"》
《td align="left" id="upid"》文件1：
《input type="file" name="file1" style="width:250" value=""》“/运输署”
“/训练班”
《tr align="center" valign="middle" class=CommonListTitle“
《td》
《input name="Submit" type="submit" class="button" value="行销提交"》

《input name="Submit2" type="reset" class="button" value="行销重执"》“/运输署”
“/训练班”
“/表格”
“/表”
“/体”
“/的HTML”
《script language="javascript"》
setid（）;
“/脚本”
“/体”
“/的HTML”
================================================== =====================
2：Upfile.asp内容如下。
“％
暗淡科恩mypath中
设置康恩= server.createobject（“adodb.connection”）
mypath中= server.mappath（“xx.mdb”）’建立数据库连接。
conn.open“商= microsoft.jet.oledb.4.0;数据源=”＆mypath中
％“
《!--#包括文件=“upload_5xsoft.inc” - “
《html》
的《head》
《标题》照片“/标题”
《link href="../style/style.css" rel="stylesheet" type="text/css"》
***隐藏网址***
“/头”
的《Body》
《table align="center" cellpadding="4" cellspacing="1" class="toptable grid" border="1"》 《tr class=CommonListTitle height="25"》
《td》上传结果“/运输署”
“/训练班”
《tr class="CommonListCell"》
《td》
“％
暗淡上传，文件，formName，formPath，iCount，Photo_Beizhu，upcount
设置新upload_5xSoft上传= ’’建立上传对象
response.write upload.Version＆“《BR》 《BR》在”’’显示上传类的版本
如果upload.form（“文件路径")=""然后’’得到上传目录
HtmEnd“请输入要上传至的目录！”
没有设置上传=
response.end
其他的
formPath = upload.form（“文件路径”）

’’在目录后加（/）
如果权利（formPath，1 )《》"/"然后formPath = formPath＆“/”
最后，如果
暗淡卢比，则SQL
设置卢比= server.createobject（“adodb.recordset”）
的SQL =“选择*从”和替换（替换（formPath ,"..",""),"/","")&""
rs.open SQL中，科恩1,3
iCount = 0
每个formName upload.file ’’列出所有上传了的文件
设置文件= upload.file（formName）’’生成一个文件对象
如果file.FileSize“0，那么’’如果文件大小”0说明有文件数据
file.SaveAs Server.mappath（formPath＆file.FileName）’’保存文件
’录入数据库

rs.addnew
卢比（“字段”）= formPath＆File.FileName
rs.update
response.write file.FilePath＆file.FileName＆“（”＆file.FileSize＆“）=”“＆formPath＆File.FileName＆”成功！《br》“
iCount = iCount +1
最后，如果
没有设置文件=
下一个
没有设置上传= ’’删除此对象
Htmend iCount＆“个文件上传结束！”
分HtmEnd（消息）
没有设置上传=
response.write“《br》”＆消息＆“”
结束分
％“”/运输署“
“/训练班”
“/表”
“/体”
“/的HTML”
================================================== ===========
3：upload_5xsoft.inc这个最重要的文件。内容如下。
《SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT》
’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’
’
’请保留此信息
’
’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’
暗淡upfile_5xSoft_Stream
类upload_5xSoft

昏暗的表格，文件，版本

私人小组Class_Initialize在
暗淡iStart，iFileNameStart，iFileNameEnd，iEnd，vbEnter，iFormStart，iFormEnd，theFile
暗淡strDiv，mFormName，mFormValue，mFileName，mFileSize，mFilePath，iDivLen，mStr
版本=“上传程序版本1.0”
如果Request.TotalBytes“1分，然后退出
设置表格=的CreateObject（“Scripting.Dictionary”）
设置文件=的CreateObject（“Scripting.Dictionary”）
设置upfile_5xSoft_Stream =的CreateObject（“的ADODB.Stream”）
upfile_5xSoft_Stream.mode = 3
upfile_5xSoft_Stream.type = 1
upfile_5xSoft_Stream.open
upfile_5xSoft_Stream.write Request.BinaryRead（Request.TotalBytes）
vbEnter =织红细胞（13）＆织红细胞（10）
iDivLen = inString（1，vbEnter）+1
strDiv =子串（1，iDivLen）
iFormStart = iDivLen
iFormEnd = inString（iformStart，strDiv）-1
而iFormStart“iFormEnd
iStart = inString（iFormStart，“名称=""")
iEnd = inString（iStart +6 ,"""")
mFormName =子串（iStart +6，iEnd - iStart - 6）
iFileNameStart = inString（iEnd +1“文件名=""")
如果iFileNameStart“零和iFileNameStart”iFormEnd然后
iFileNameEnd = inString（iFileNameStart 10 ,"""")
mFileName =子串（iFileNameStart 10，iFileNameEnd - iFileNameStart - 10）
iStart = inString（iFileNameEnd 1，vbEnter＆vbEnter）
iEnd = inString（iStart +4，vbEnter＆strDiv）
如果iEnd“iStart然后
mFileSize = iEnd - iStart - 4
其他的
mFileSize = 0
最后，如果
新成立theFile = FileInfo的
theFile.FileName = getFileName（mFileName）
theFile.FilePath = getFilePath（mFileName）
theFile.FileSize = mFileSize
theFile.FileStart = iStart +4
theFile.FormName = FormName
file.add mFormName，theFile
其他的
iStart = inString（iEnd +1，vbEnter＆vbEnter）
iEnd = inString（iStart +4，vbEnter＆strDiv）
如果iEnd“iStart然后
mFormValue =子串（iStart +4，iEnd - iStart - 4）
其他的
mFormValue =“”
最后，如果
form.Add mFormName，mFormValue
最后，如果
iFormStart = iformEnd + iDivLen
iFormEnd = inString（iformStart，strDiv）-1
一把故乡
完子
私有函数串（theStart，特伦）
暗淡，C节，stemp
upfile_5xSoft_Stream.Position = theStart - 1
stemp =“”
其中i = 1特伦
如果upfile_5xSoft_Stream.EOS然后出境
荤= ascB（upfile_5xSoft_Stream.Read（1））
如果c“，然后127
如果upfile_5xSoft_Stream.EOS然后出境
stemp = stemp＆织红细胞（AscW（ChrB（AscB（upfile_5xSoft_Stream.Read（1）））＆ChrB（三）））
i =我一
其他的
stemp = stemp＆织红细胞（三）
完如果
下一个
串= stemp
完功能
私有函数inString（theStart，varStr）
暗淡的我，ĵ，队，一年半前，海峡
InString = 0
海峡= toByte（varStr）
特伦= LenB（海峡）
其中i = theStart的upfile_5xSoft_Stream.Size，特伦
如果我“upfile_5xSoft_Stream.size然后退出功能
upfile_5xSoft_Stream.Position =的i - 1
如果AscB（upfile_5xSoft_Stream.Read（1））= AscB（midB（海峡，1）），然后
InString =我
办理J = 2特伦
然后，如果upfile_5xSoft_Stream.EOS
inString = 0
出境
最后，如果
如果AscB（upfile_5xSoft_Stream.Read（1））“”AscB（MidB（海峡，ĵ，1）），然后
InString = 0
退出对于
最后，如果
下一个
如果InString“”0，那么退出功能
最后，如果
下一个
完函数
私人小组的Class_Terminate
form.RemoveAll
file.RemoveAll
设置任何形式=
没有设置文件=
upfile_5xSoft_Stream.close
没有设置upfile_5xSoft_Stream =
完子
私有函数GetFilePath（FullPath）
如果FullPath“”“”那
GetFilePath =左（FullPath，InStrRev（FullPath，“\”））
其他的
GetFilePath =“”
完如果
完功能

私有函数GetFileName（FullPath）
如果FullPath“”“”那
GetFileName =中期（FullPath，InStrRev（FullPath，“\”）+1）
其他的
GetFileName =“”
完如果
完功能
私有函数toByte（海峡）
暗淡我的ICODE，丙，iLow，iHigh
toByte =“”
对于i = 1 Len（海峡）
荤=中期（海峡，我，1）
的ICODE =升序（三）
如果的ICODE“0那么的ICODE =的ICODE + 65535
如果的ICODE“255，然后
iLow =左（十六进制（升序（三）），2）
iHigh =右（十六进制（升序（三）），2）
toByte = toByte＆chrB（“＆H公司”＆iLow）＆chrB（“＆H公司”＆iHigh）
其他的
toByte = toByte＆chrB（AscB（c）项）
完如果
下一个
完功能
最终类
FileInfo的类
暗淡FormName，文件名，文件路径，文件大小，FileStart
私人小组Class_Initialize在
文件名=“”
文件路径=“”
文件大小= 0
FileStart = 0
FormName =“”
完子

公共函数另存为（FullPath）
昏暗的博士，ErrorChar，我
另存为= 1
如果修剪（fullpath）=“”或文件大小= 0或FileStart = 0或文件名=“”，然后退出功能
如果FileStart = 0或右（fullpath，1 )="/"然后退出功能
设置博士=的CreateObject（“的ADODB.Stream”）
dr.Mode = 3
dr.Type = 1
dr.Open
upfile_5xSoft_Stream.position = FileStart - 1
upfile_5xSoft_Stream.copyto博士，文件大小
dr.SaveToFile FullPath，2
dr.Close
没有设置博士=
另存为= 0
为此功能
最终类
“/脚本”
“/体”
“/的HTML”
完工。