conn.asp

本源代码为终点小说连载系统 v1.15 Build 0430 SQL清风修改版,欢迎大家下载,学习与交流

<!--
'----------------------------------------------------------------------
'转发时请保留此声明信息,这段声明不并会影响你的速度!
'*******************     終點小说连载系统   ***************************
'修改者:终点
'邮件:[e-mail];[e-mail]
'网站:http://www.cnend.com/;http://www.cnend.com.cn/;http://www.cnend.net/;http://www.cnend.cn/
'QQ:46653654
'**********************************************************************
'----------------------------------------------------------------------
--><%@ Language=VBScript CodePage=936%>
<%
dim conn
dim connstr
dim startime
startime=Timer * 1000
Set conn = Server.createobject("ADODB.Connection")

ConnStr="Provider=SQLOLEDB;pwd=1;User ID=sa;database=zd;Data Source=(local)"
'connstr = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & Server.MapPath("databas/#data#bas.mdb")
conn.Open connstr
%>
<%
sub connclose()
conn.close
set conn=nothing
end sub
%>
<%
Function CheckSql(str)
dim textstr
textstr=LCase(str)
textstr=replace(textstr,"'","")
textstr=replace(textstr,"%","")
textstr=replace(textstr,",","")
textstr=replace(textstr," ","")
textstr=replace(textstr,"%20","")
textstr=replace(textstr,"insert","")
textstr=replace(textstr,"select","")
textstr=replace(textstr,"update","")
textstr=replace(textstr,"count","")
textstr=replace(textstr,"delete","")
textstr=replace(textstr,"where","")
CheckSql=textstr
End Function

Function CheckSqlnum(str)
if IsNumeric(str)=false then
response.write "<script language=javascript>alert('What Are You Doing?');history.back(-1);</script>"
response.End
end if
End Function
%>