%Set dskefu = Server.CreateObject(ADODB.Recordset)Sql=Select * from data.kefu_KeFu order by id descdskefu.Open Sql,conn,1,1namekefu=dskefu(kefu)kefuqq=dskefu(qq...
Public Function GetFileName(ByVal FilePathFileName As String) As String 获取文件名 aaa.txt On Error Resume Next Dim i As Integer, J As Integer i = Len(FilePathFileNa...
Private Shared Function SearchMidString(ByVal s As String, ByVal s1 As String, ByVal s2 As String) As String 获取搜索到的数目 Dim n1 As Integer, n2 As Integer n1 = s.In...
Public Function GetFileName(ByVal FilePathFileName As String) As String 获取文件名 aaa.txt On Error Resume Next Dim i As Integer, J As Integer i = Len(FilePathFileNa...
Public i As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim counter As Integer Dim tempA...
Dim currentline As Integer = 0 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If (RichTextBox1.Line...
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim documentURL Dim dlFileName documentURL = http://...
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click My.Computer.Clipboard.Clear() If Me.RichTextBox1.Tex...
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TabControl2.Show() TabControl1.Hide() End Sub Privat...