📄 conn1.asp

📁 提供企业bug的追踪流程
💻 ASP
字号:
<%
	dim conn
	Set conn = Server.CreateObject("ADODB.Connection")
	if selectDatabase=0 then
	 conn.Open connstrAccess1
	else
     conn.Open connstrMSSQL
    end if
     'Session.Timeout = 5 
'--撤消conn的函数
   sub CloseConn()
     conn.close
     set conn=nothing
   end sub

function isCheckTri(sTable,sIndex,sValue,sIndex2,sValue2,sIndex3,sValue3,SQLstr)'---该函数测试通过了

' dim conn,strcn
dim sqltext,conn78
  Set conn78=server.createobject("adodb.connection")
  
  conn78.open SQLstr'Access
 
   set rs4478=server.createobject("adodb.recordset")
  sqltext="select "&sIndex&" from "&sTable&" Where "&sIndex&" like '"&sValue&"'"&" and "&sIndex2&" like '"&sValue2&"' and "&sIndex3&" like '"&sValue3&"'"
   rs4478.open sqltext,conn78,1,1
if not rs4478.eof then
isCheckTri=true
else
isCheckTri=false
end if
 rs4478.Close
 Set rs4478 = Nothing
 conn78.close
set conn78=nothing

end function
 '****************************************************
'过程名：isCheckDouble
'作  用：根据2个条件字段的值,判断数据库库中是否有该数据
'参  数：sTarget目标字段,
'        sTable数据库表名,
'        sIndex条件字段,
'        sValue条件字段的值
'返回值：有是true,无是false
'****************************************************

function isCheckDouble(sTable,sIndex,sValue,sIndex2,sValue2,SQLstr)'---该函数测试通过了

' dim conn,strcn
dim sqltext,conn78
  Set conn78=server.createobject("adodb.connection")
  
  conn78.open SQLstr'Access
 
   set rs4478=server.createobject("adodb.recordset")
  sqltext="select "&sIndex&" from "&sTable&" Where "&sIndex&" like '"&sValue&"'"&" and "&sIndex2&" like '"&sValue2&"'"
   rs4478.open sqltext,conn78,1,1
if not rs4478.eof then
isCheckDouble=true
else
isCheckDouble=false
end if
 rs4478.Close
 Set rs4478 = Nothing
 conn78.close
set conn78=nothing

end function
  '****************************************************
'过程名：isCheckSingle
'作  用：根据一个条件字段的值,判断数据库库中是否有该数据
'参  数：sTarget目标字段,
'        sTable数据库表名,
'        sIndex条件字段,
'        sValue条件字段的值
'返回值：有是true,无是false
'****************************************************

function isCheckSingle(sTable,sIndex,sValue,SQLstr)'---该函数测试通过了

' dim conn,strcn
dim sqltext,conn78
  Set conn78=server.createobject("adodb.connection")
  
  conn78.open SQLstr'Access
 
   set rs4478=server.createobject("adodb.recordset")
  sqltext="select "&sIndex&" from "&sTable&" Where "&sIndex&" like '"&sValue&"'"
   rs4478.open sqltext,conn78,1,1
if not rs4478.eof then
isCheckSingle=true
else
isCheckSingle=false
end if
 rs4478.Close
 Set rs4478 = Nothing
 conn78.close
set conn78=nothing

end function

   '****************************************************
'过程名：getValueByValue
'作  用：根据一个条件字段的值,获得数据库库中某个目标字段的值
'参  数：sTarget目标字段,
'        sTable数据库表名,
'        sIndex条件字段,
'        sValue条件字段的值
'返回值：目标字段的值
'****************************************************

function getValueByValue(sTarget,sTable,sIndex,sValue,SQLstr)'---该函数测试通过了

' dim conn,strcn
dim sqltext,conn77
  Set conn77=server.createobject("adodb.connection")
  
  conn77.open SQLstr'Access
 
   set rs4477=server.createobject("adodb.recordset")
  sqltext="select "&sTarget&" from "&sTable&" Where "&sIndex&" like '"&sValue&"'"
   rs4477.open sqltext,conn77,1,1
if not rs4477.eof then
getValueByValue=rs4477.Fields(0).value
else
getValueByValue="*"
end if
 rs4477.Close
 Set rs4477 = Nothing
 conn77.close
set conn77=nothing

end function
'****************************************************
'过程名：lineDelete
'作  用：删除数据库表中,满足条件字段的记录
'参  数：sTable数据库表名,   
'        sIndex条件字段,
'        sValue条件字段的值
'返回值：无
'****************************************************

sub lineDelete(sTable,sIndex,sIndexVal,SQLstr)'该DEL函数测试通过了
   Dim sql1,conn31   
     Set conn31=server.createobject("adodb.connection")
    
  conn31.open SQLstr'Access

     sql1="delete from "&sTable
     sql1=sql1&" where "&sIndex
     sql1=sql1&" like '"&sIndexVal&"'"  
'response.write(sql1)
conn31.execute(sql1)     
conn31.close
set conn31=nothing
end sub

sub lineDeleteDouble(sTable,sIndex,sIndexVal,sIndex2,sIndexVal2,SQLstr)'该DEL函数测试通过了
   Dim sql1,conn31   
     Set conn31=server.createobject("adodb.connection")
    
  conn31.open SQLstr'Access

     sql1="delete from "&sTable
     sql1=sql1&" where "&sIndex
     sql1=sql1&" like '"&sIndexVal&"' and "&sIndex2&" like '"&sIndexVal2&"'"  
'response.write(sql1)
conn31.execute(sql1)     
conn31.close
set conn31=nothing
end sub

sub lineDeleteTri(sTable,sIndex,sIndexVal,sIndex2,sIndexVal2,sIndex3,sIndexVal3,SQLstr)'该DEL函数测试通过了
   Dim sql1,conn31   
     Set conn31=server.createobject("adodb.connection")
    
  conn31.open SQLstr'Access

     sql1="delete from "&sTable
     sql1=sql1&" where "&sIndex
     sql1=sql1&" like '"&sIndexVal&"' and "&sIndex2&" like '"&sIndexVal2&"' and "&sIndex3&" like '"&sIndexVal3&"'"  
'response.write(sql1)
conn31.execute(sql1)     
conn31.close
set conn31=nothing
end sub
'****************************************************
'过程名：Modify
'作  用：修改数据库表中,满足条件字段的记录的目标字段的值
'参  数：sTable数据库表名,  
'        sField 目标字段
'        sValue目标字段的值
'        sIndex条件字段,
'        sIndexValue条件字段的值
'返回值：无
'****************************************************
Sub Modify(sTable,sField,sValue,sIndex,sIndexValue,SQLstr)'该函数测试通过了

    Dim sql,conn3   
     Set conn3=server.createobject("adodb.connection")
 
  conn3.open SQLstr'Access
 
     sql="update "&sTable
     sql=sql&" set "&sField
     sql=sql&"='"&sValue&"'"
     sql=sql&" where "&sIndex
     sql=sql&" like '"&sIndexValue&"'"  

conn3.execute(sql)     
conn3.close
set conn3=nothing
End Sub

'****************************************************
'过程名：SearchRecorder
'作  用：寻找相临的数据(sIndex字段)
'参  数：sSQL标准SQL,  
'        sPage 位置--0代表上面一个位置,1---代表下面一个位置
'        sIndex条件字段,
'        sIndexValue条件字段的值
'返回值：相邻数据记录号,NULL为#
'****************************************************
Function SearchRecorder(sSQL,sPage,sIndex,sIndexValue,SQLstr)'该函数测试通过了
    dim result
    Dim conn3 
    Dim rsRec 
   'response.write(sIndexValue)
    result="#" 
     Set conn3=server.createobject("adodb.connection")
   
  conn3.open SQLstr'Access
 
     set rsRec=server.createobject("adodb.recordset")  
	 'response.write(sSQL)
     rsRec.open sSQL,conn3,1,1
Do while not rsRec.EOF
 if Cstr(rsRec(Cstr(sIndex)))=Cstr(sIndexValue) then
  if sPage="0" then 
   rsRec.MovePrevious
   if not rsRec.BOF then
   result=rsRec(Cstr(sIndex))
   else
   result="#"
   end if
   exit do
  elseif sPage="1" then
   rsRec.MoveNext
   if not rsRec.EOF then
   result=rsRec(Cstr(sIndex))
   else
   result="#"
   end if
   exit do
  end if

end if
rsRec.MoveNext
 loop
rsRec.close
set rsRec=nothing
   conn3.close
   set conn3=nothing
SearchRecorder=result
End Function

'****************************************************
'过程名：SearchRecorder2
'作  用：寻找相临的数据(sIndex字段)
'参  数：sSQL标准SQL,  
'        sPage 位置--0代表上面一个位置,1---代表下面一个位置
'        sIndex条件字段,
'        sIndexValue条件字段的值
'返回值：相邻数据记录号,NULL为#
'****************************************************
Function SearchRecorder2(sSQL,sPage,sIndex,sIndexValue,SQLstr)'该函数测试通过了
    dim result
    Dim conn3 
    Dim rsRec 
   'response.write(sIndexValue)
    result="#" 
	 Set conn3=server.createobject("adodb.connection")
   
  conn3.open SQLstr'Access
 
     set rsRec=server.createobject("adodb.recordset")  
	 'response.write(sSQL)
     rsRec.open sSQL,conn3,1,1
Do while not rsRec.EOF
 if Cstr(rsRec(Cstr(sIndex)))=Cstr(sIndexValue) then
  if sPage="0" then 
   rsRec.MovePrevious
   if not rsRec.BOF then
   result=rsRec(Cstr(sIndex))
   else
   result="#"
   end if
   exit do
  elseif sPage="1" then
   rsRec.MoveNext
   if not rsRec.EOF then
   result=rsRec(Cstr(sIndex))
   else
   result="#"
   end if
   exit do
  end if

end if
rsRec.MoveNext
 loop
rsRec.close
set rsRec=nothing
   conn3.close
   set conn3=nothing
SearchRecorder2=result
End Function
%>
<% Sub MsgTime(Error,url,time)%>
<HTML><HEAD><TITLE>提示</TITLE>
<%
if time="" then
time=0.5
end if

%>
<META charset=gb2312 content="Microsoft FrontPage 4.0" name=GENERATOR>
<meta http-equiv=refresh content="<%=time%>;url=<%=url%>"><STYLE type=text/css>.main {
	FONT-SIZE: 12px
}
.main1 {
	FONT-SIZE: 14px
}
.main2 {
	FONT-SIZE: 16px
}
.main3 {
	FONT-SIZE: 7px
}
.main4 {
	FONT-SIZE: 10px
}
A:link {
	COLOR: #000000; TEXT-DECORATION: none
}
A:visited {
	COLOR: #000000; TEXT-DECORATION: none
}
A:active {
	COLOR: #ff0000; TEXT-DECORATION: none
}
A:hover {
	COLOR: #aa0000; TEXT-DECORATION: underline
}
</STYLE>
</HEAD>
<BODY bgColor=#ffffff class=clblue leftMargin=0 topMargin=2 marginwidth="0" 
marginheight="0"><BR><BR><BR><BR>
<P><BR>
<CENTER>
<P align=center><BR>
<TABLE cellPadding=0 cellSpacing=0 width=230>
  <TBODY>
  <TR>
    <TD align=middle>
      <TABLE bgColor=#1f60a0 cellPadding=0 cellSpacing=0 width=308>
        <TBODY>
        <TR>
          <TD height=2 width=113>
            <P align=center>　</P></TD>
          <TD height=2 width=191>
            <DIV align=right></DIV></TD></TR></TBODY></TABLE>
      <DIV align=center>
      <CENTER>
      <TABLE bgColor=#416327 cellPadding=4 cellSpacing=1 height=100 width=306>
        <TBODY>
        <TR bgColor=#e1f0ff vAlign=top>
          <TD class=main1 height=53 width=292>
            <P align=center><BR><% response.write Error%></P></TD></TR>
        <TR bgColor=#e1f0ff>
          <TD class=main1 height=27 width=292>
            <DIV align=center><a href="<%=url%>">返回</a>
            </DIV></TD></TR></TBODY></TABLE></CENTER></DIV>
      <TABLE bgColor=#1f60a0 cellPadding=0 cellSpacing=0 width=307>
        <TBODY>
        <TR>
          <TD height=2 width=119></TD>
          <TD height=2 width=206>
            <DIV align=right></DIV></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<P align=center><BR></P>
<DIV align=center class=main1></DIV></CENTER>
<P><BR></P></BODY></HTML>

<%End Sub%>

<%
'****************************************************
'过程名：getValueByValue2
'作  用：根据一个条件字段的值,获得数据库库中某个目标字段的值
'参  数：sTarget目标字段,
'        sTable数据库表名,
'        sIndex条件字段,
'        sValue条件字段的值
'返回值：目标字段的值
'****************************************************

function getValueByValue2(sTarget,sTable,sIndex,sValue,SQLstr)'---该函数测试通过了

' dim conn,strcn
dim sqltext,conn77
  Set conn77=server.createobject("adodb.connection")
  
  conn77.open SQLstr'MSSQL
 
   set rs4477=server.createobject("adodb.recordset")
  sqltext="select "&sTarget&" from "&sTable&" Where "&sIndex&" like '"&sValue&"'"
   rs4477.open sqltext,conn77,1,1
if not rs4477.eof then
getValueByValue2=rs4477.Fields(0).value
else
getValueByValue2="*"
end if
 rs4477.Close
 Set rs4477 = Nothing
 conn77.close
set conn77=nothing

end function

'****************************************************
'过程名：SendMsg(内部要根据数据类型选择修改)
'作  用：发短消息
'参  数：Title标题
'        Content内容
'        receiver收信人
'        sender发信人
'返回值：目标字段的值
'****************************************************
function SendMsg(Title,Content,receiver,sender,SQLstr)
dim sqltext,conn77
  Set conn77=server.createobject("adodb.connection")  
  conn77.open SQLstr'MSSQL 
   set rs4477=server.createobject("adodb.recordset")
  sqltext="select * from bug_mail"
  rs4477.open sqltext,conn77,1,3
rs4477.addnew
if Title<>"" then rs4477("title")=Title
if Content<>"" then rs4477("content")=Content
if receiver<>"" then rs4477("receiverid")=receiver
if sender<>"" then rs4477("senderid")=sender
rs4477("isread")=0
rs4477("isReceDel")=0
rs4477("isSendDel")=0
rs4477("creatTime")=Now()
rs4477.update
rs4477.Close
 Set rs4477 = Nothing
 conn77.close
set conn77=nothing
end function

%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -