摘要:
--首先将不是重复的数据提取出来,保存到一个临时表中select distinct * into #temp from JX_Score--然后删除原来的表delete from JX_Score--最后往里面插入临时表的数据insert into jx_score select * from #temp 阅读全文
摘要:
15 14 Private Function GetXML(ByVal name As String) As String Dim path As String Dim xx As String = "" path = Application.StartupPath + "\xbd.xml" '文件的地址,相对位置 Try Dim reader As New Xml.XmlTextReader(path) reader.ReadToFollowin... 阅读全文
摘要:
--在表中添加字段if col_length('JX_DomesticStudy','XL') is nullbeginalter table JX_DomesticStudy add PXlevel int default 0 endgo--创建表if not exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[JX_PXlevel]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)begin CREATE 阅读全文
摘要:
'附件添加 按钮 点击事件 吴翰哲 2013年7月23日 16:53:19 Protected Sub BtnAddFile_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BtnAddFile.Click Try Dim sysConfigDB As New SysConfigDB Dim dr As DataRow = sysConfigDB.getItemByName("MaxFileSize") ... 阅读全文
摘要:
1 '后台 Partial Public Class Download2 2 Inherits System.Web.UI.Page 3 4 Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 5 Dim fileName As String = Request.QueryString("FileName") 6 Dim flag As String = Request.QueryString("flag")... 阅读全文
摘要:
1.vb.net加密解密方法Private Function getLicenseDate() As String Dim b() As Byte Dim path As String = Server.MapPath(Context.Request.ApplicationPath) & "License\" Try If Not System.IO.Directory.Exists(path) Then System.IO.Directory.CreateDi... 阅读全文