save.asp
-
<!-- #include file="adovbs.inc" -->
-
<%
-
' Constants file included above.
-
' 如果文件存在则删除
-
Dim objFSO
-
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
-
If objFSO.FileExists(Server.MapPath("db_xml.xml")) Then
-
objFSO.DeleteFile Server.MapPath("db_xml.xml")
-
End IF
-
Set objFSO = Nothing
-
'变量声明
-
Dim cnnXML ' ADO connection
-
Dim rstXML ' ADO recordset
-
'创建数据连接对象
-
Set cnnXML = Server.CreateObject("ADODB.Connection")
-
' 这是连接access数据库的例子:
-
'cnnXML.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
-
' & Server.MapPath("db_scratch.mdb") & ";"
-
' 下面以Sqlserver为例子讲解:
-
cnnXML.Open "Provider=SQLOLEDB;Data Source=10.2.1.214;" _
-
& "Initial Catalog=samples;User Id=samples;Password=password;" _
-
& "Connect Timeout=15;Network Library=dbmssocn;"
-
Set rstXML = Server.CreateObject("ADODB.Recordset")
-
Set rstXML = cnnXML.Execute("SELECT * FROM scratch ORDER BY id;")
-
Response.Write "<p>Saving data as XML...</p>" & vbCrLf
-
' 保存至xml格式.
-
rstXML.Save Server.MapPath("db_xml.xml"), adPersistXML
-
' 关闭对象、释放资源
-
rstXML.Close
-
Set rstXML = Nothing
-
cnnXML.Close
-
Set cnnXML = Nothing
-
Response.Write "<p>XML file written...</p>" & vbCrLf
-
Response.Write "<p>Click <a href=""db_xml.xml"">here</a> to view the file.</p>" & vbCrLf
-
%>
相关文章
- Mantis数据转移—将默认存储到数据库中的文件取出存放到硬盘上
- Winform主菜单两种实现方式-1.）从工具箱中双击MenuStrip控件，窗体的顶部就会放置一个MenuStrip控件，或者在工具箱中单击MenuStrip控件,拖至窗体中也可以.
2.）在MenuStrip的“Type Here”输入主菜单和菜单名字，热键用（&X）表示.
用快捷键选择主菜单，可以用Alt + 预定义的按键来实现，子菜单的选择只需要按定义的热键即可.
3.）双击File*菜单下面的子菜单，创建子菜单Open、Save、Exit的单击事件代码：
private void OpenOToolStripMenuItem_Click(object sender, EventArgs e)
{
OpenFileDialog ofd = new OpenFileDialog
{
//初始化打开对话框的路径
InitialDirectory = @"D:\",
Title = "Open File",
//定义可显示的文件类型；
Filter = "txt file(*.txt)|*.txt|All file(*.*)|*.*",
//定义默认显示的文件类型为txt
FilterIndex = 1,
//对话框关闭后将复位初始化路径
RestoreDirectory = true
};
if (ofd.ShowDialog == DialogResult.OK)
{
//根据打开对话框选择的文件名，加载文本内容到富文本框中.
richtxtContent.Text = File.ReadAllText(ofd.FileName);
}
}
private void SaveSToolStripMenuItem_Click(object sender, EventArgs e)
{
SaveFileDialog sfd = new SaveFileDialog
{
//初始化保存对话框的路径
InitialDirectory = @"D:\",
Title = "Save File",
//定义可显示的文件类型；
Filter = "txt file(*.txt)|*.txt|All file(*.*)|*.*",
//定义默认显示的文件类型为txt
FilterIndex = 1,
//对话框关闭后将复位初始化路径
RestoreDirectory = true
};
if(sfd.ShowDialog == DialogResult.OK)
{
//保存文件
File.WriteAllText(sfd.FileName, richtxtContent.Text);
//清空富文本框内容
richtxtContent.Clear;
}
}
private void exitEToolStripMenuItem_Click(object sender, EventArgs e)
{
Application.Exit;
}
4．）执行下程序，加载指定的txt文件到富文本框中，如下：
5.）在富文本框中更新加载进来的txt文件内容.
6.）Alt + F热键打开文件的下拉菜单，单击S保存富文本框中的内容到指定的文件.打开txt验证菜单单击事件保存文件成功.
二．实现winform主菜单的方法2：MenuStrip类和toolStripMenuItem类实例化对象，在主窗体加载事件中实现如下代码：
- ASP.NET2.0中将数据库字段中存储的文件显示出来
- 将混合编码的xml文件数据保存到mysql数据库中的utf-8
- 将XML存储在SQL数据库记录或XML文件中是否更有效？
- 将XML存储在数据库中是“不好的”吗?
- jnhs[未解决]无法使用选定的hibernate配置文件建立数据库连接.请验证hibernate.cfg.xml中的数据库连接详情信息
- 在ASP.NET中，最好将上传的文件存储到关系数据库中，还是将其放入文件系统中？
- asp.net 将一个图片以二进制值的形式存入Xml文件中的实例代码
- ASP.NET下将Excel表格中的数据规则的导入数据库思路分析及实现
