<OBJECT ID="agobjOraSession" RUNAT="Server" PROGID="OracleInProcServer.XOraSession" SCOPE="Application">
</OBJECT>
<script LANGUAGE=VBScript RUNAT=Server>
Const CONST_FL_NAME = "\GetAttributeCode.ini"
Const CONST_FL_FORREADING = 1
Const CONST_DB_SECTION = "[DB_CONNECTION]"Sub Application_OnStart
On Error Resume Next
Dim objFs
Dim objTs
Dim strLineData
Dim flgSection
Dim strTempData
Application("Service") = ""
Application("User") = ""
strLineData = ""
strTempData = ""
flgSection = False
Set objFs = Server.CreateObject ("Scripting.FileSystemObject")
Set objTs = objFs.OpenTextFile(Server.MapPath(CONST_FL_NAME),CONST_FL_FORREADING,False)
If Err.Number <> 0 Then
Err.Clear
Set objTs = Nothing
Set objFs = Nothing
Exit Sub
End If
While Not objTs.AtEndOfStream
strLineData = objTs.ReadLine
If Trim(strLineData) <> "" Then
If flgSection = True And Mid(strLineData,1,1) = "[" And _
Mid(strLineData,Len(strLineData),1) = "]" Then
objTs.Close
Set objTs = Nothing
Set objFs = Nothing
Exit Sub
End If
If strLineData = CONST_DB_SECTION Then
flgSection = True
End If
If flgSection = True Then
If Mid(strLineData,1,7) = "Service" Then
strTempData = Trim(Mid(strLineData,8,Len(strLineData)-7))
If Mid(strTempData,1,1) = "=" Then
strTempData = Trim(Mid(strTempData,2,Len(strTempData)-1))
Application.Lock
Application("Service") = Mid(strTempData,2,Len(strTempData)-2)
Application.UnLock
End If
End If
If Mid(strLineData,1,4) = "User" Then
strTempData = Trim(Mid(strLineData,5,Len(strLineData)-4))
If Mid(strTempData,1,1) = "=" Then
strTempData = Trim(Mid(strTempData,2,Len(strTempData)-1))
Application.Lock
Application("User") = Mid(strTempData,2,Len(strTempData)-2)
Application.UnLock
End If
End If
End If
End If
Wend
objTs.Close
Set objTs = Nothing
Set objFs = Nothing
End Sub
</script>
[1]
支持多行同时拖拽,重复数据不重得添加,添加了图表右键菜单. 复制代码 代码如下...
本文转载自微信公众号「Java极客技术」,作者鸭血粉丝 。转载本文请联系Java极客...
1.判断是否有注入 ;and1=1 ;and1=2 2.初步判断是否是mssql ;anduser0 3.注入参数...
大家应该都知道,在静态页面提交表单到数据库很简单就是单纯的 form action="tes...
导读: 正则表达式是处理字符串类型的"核武器",不仅速度快,而且功能强大。本文...
最近出的每日一题里面,有一道是关于合并同类型数据为一行的题,使用SQL Server ...
jsp 开发之struts2中s:select标签的使用 1.第一个例子: s:select list="{'aa','...
分享背景 由于一直在虚拟机的状态下开发PHP,尝试一下mac本地搭建环境.mac本身是...
前言 上次咱们简单的学习了一下select的用法,一篇文章教会你进行Mysql数据库和...
LABVIEW如何连接SQL Server详细说明 一、整体流程图 二、Sql Sever 2012下载安装...