<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
dim conn,connstr,dbstr
dbstr="../db/bottom.asp"
connstr="provider=microsoft.jet.oledb.4.0;data source="& server.MapPath(dbstr)
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "Data Connection Error!"
Response.End
End If
%>
<%
dim sql_leach,sql_leach_0,Sql_DATA,SQL_Get,Sql_Post
sql_leach = "',or,and,exec,insert,select,delete,update,count,*,%,chr,mid,master,truncate,char,declare"
sql_leach_0 = split(sql_leach,",")
If Request.QueryString<>"" Then
For Each SQL_Get In Request.QueryString
For SQL_Data=0 To Ubound(sql_leach_0)
if instr(Request.QueryString(SQL_Get),sql_leach_0(Sql_DATA))>0 Then
'Response.Write " Ҫ SQL "
'Response.end
end if
next
Next
End If
If Request.Form<>"" Then
For Each Sql_Post In Request.Form
For SQL_Data=0 To Ubound(sql_leach_0)
if instr(Request.Form(Sql_Post),sql_leach_0(Sql_DATA))>0 Then
'Response.Write " Ҫ SQL "
'Response.end
end if
next
next
end if
%>
<%
Function sql_check(str)
if str <> "" then
str=replace(str,"'","''")
str=replace(str,"""","''")
sql_check=str
end if
end function
Function changechr(str)
if str <> "" then
changechr = replace(str," "," ")
changechr = replace(changechr,chr(13)," ")
end if
End Function
Function lenchr(str,num)
if str <> "" then
if len(str) >= num then
response.write mid(str,1,num)&"..."
else
response.write str
end if
end if
End Function
function week() '当天的星期数
num = weekday(date)
if num = 1 then
str = "星期天"
elseif num = 2 then
str = "星期一"
elseif num = 3 then
str = "星期二"
elseif num = 4 then
str = "星期三"
elseif num = 5 then
str = "星期四"
elseif num = 6 then
str = "星期五"
elseif num = 7 then
str = "星期六"
end if
week = str
end function
function ymd() '当天年月日
ymd = year(date)&"年"&month(date)&"月"&day(date)&"日"
end function
function ymd_e(ymd)
m = month(ymd)
if m = 1 then
str = "January"
elseif m = 2 then
str = "February"
elseif m = 3 then
str = "March"
elseif m = 4 then
str = "April"
elseif m = 5 then
str = "May"
elseif m = 6 then
str = "June"
elseif m = 7 then
str = "July"
elseif m = 8 then
str = "August"
elseif m = 9 then
str = "September"
elseif m = 10 then
str = "October"
elseif m = 11 then
str = "November"
elseif m = 12 then
str = "December"
end if
ymd_e = left(str,3)&" "&day(ymd)&", "&year(ymd)&""
end function
%>
欢迎莅临“译博士”！
