?? syscode.asp
字號:
end function
sub addbuy()
Dim rdsInfo
set rdsInfo = Server.CreateObject("ADODB.Recordset")
rdsInfo.Open "buy",Conn,3,3
rdsInfo.AddNew
rdsInfo("class") =changechr(Request.Form("class"))
rdsInfo("pinpai") = changechr(Request.Form("pinpai"))
rdsInfo("color") =changechr(Request.Form("color"))
rdsInfo("type") =changechr(Request.Form("type"))
rdsInfo("journey") = changechr(Request.Form("journey"))
rdsInfo("haoyou") = changechr(Request.Form("haoyou"))
rdsInfo("home") = changechr(Request.Form("home"))
rdsInfo("money") = changechr(Request.Form("money"))
rdsInfo("transfer") = changechr(Request.Form("transfer"))
rdsInfo("qixian") = changechr(Request.Form("qixian"))
rdsInfo("jianjie") = changechr(Request.Form("jianjie"))
rdsInfo("name") =changechr(Request.Form("name"))
rdsInfo("qq") = changechr(Request.Form("qq"))
rdsInfo("phone") = changechr(Request.Form("phone"))
rdsInfo("post") = changechr(Request.Form("post"))
rdsInfo("provinceCN") = changechr(Request.Form("TPL_prov"))
rdsInfo("capitalCN") = changechr(Request.Form("TPL_city"))
rdsInfo("mobile") = changechr(Request.Form("mobile"))
rdsInfo("fax") = changechr(Request.Form("fax"))
rdsInfo("email") = changechr(Request.Form("email"))
rdsInfo("web") = changechr(Request.Form("web"))
rdsInfo("address") = changechr(Request.Form("address"))
rdsInfo("ip") =GetIp()
if Session("useridqc")<>"" then
rdsInfo("userid") =Session("useridqc")
end if
if Session("jb")=1 then
rdsInfo("sh") =1
end if
rdsInfo.Update
rdsInfo.Close
set rdsInfo = nothing
if Session("jb")=1 then
else
end if
Response.end
conn.close
set conn=nothing
end sub
function GetIp()
getclientip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If getclientip = "" Then
getclientip = Request.ServerVariables("REMOTE_ADDR")
end if
GetIp = getclientip
end function
sub addsale()
set rdsInfo = Server.CreateObject("ADODB.Recordset")
rdsInfo.Open "mai",Conn,3,3
rdsInfo.AddNew
rdsInfo("class") =changechr(Request.Form("class"))
rdsInfo("pinpai") = changechr(Request.Form("pinpai"))
rdsInfo("paizhao") = changechr(Request.Form("paizhao"))
rdsInfo("origina") = changechr(Request.Form("origina"))
rdsInfo("money0") = changechr(Request.Form("money0"))
rdsInfo("foruse") = changechr(Request.Form("foruse"))
rdsInfo("birthyear") = changechr(Request.Form("birthyear"))
rdsInfo("oil") = changechr(Request.Form("oil"))
rdsInfo("place") = changechr(Request.Form("place"))
rdsInfo("PicUrl") = changechr(Request.Form("PicUrl"))
rdsInfo("UploadFiles") = changechr(Request.Form("UploadFiles"))
rdsInfo("color") =changechr(Request.Form("color"))
rdsInfo("type") =changechr(Request.Form("type"))
rdsInfo("journey") = changechr(Request.Form("journey"))
rdsInfo("home") = changechr(Request.Form("home"))
rdsInfo("transfer") = changechr(Request.Form("transfer"))
rdsInfo("qixian") = changechr(Request.Form("qixian"))
rdsInfo("jianjie") = changechr(Request.Form("jianjie"))
rdsInfo("name") =changechr(Request.Form("name"))
rdsInfo("qq") = changechr(Request.Form("qq"))
rdsInfo("phone") = changechr(Request.Form("phone"))
rdsInfo("post") = changechr(Request.Form("post"))
rdsInfo("provinceCN") = changechr(Request.Form("TPL_prov"))
rdsInfo("capitalCN") = changechr(Request.Form("TPL_city"))
rdsInfo("mobile") = changechr(Request.Form("mobile"))
rdsInfo("fax") = changechr(Request.Form("fax"))
rdsInfo("email") = changechr(Request.Form("email"))
rdsInfo("web") = changechr(Request.Form("web"))
rdsInfo("address") = changechr(Request.Form("address"))
rdsInfo("ip") =GetIp()
if Session("useridqc")<>"" then
rdsInfo("userid") =Session("useridqc")
end if
if Session("jb")=1 then
rdsInfo("sh") =1
end if
rdsInfo.Update
rdsInfo.Close
set rdsInfo = nothing
if Session("jb")=1 then
else
end if
Response.end
conn.close
set conn=nothing
end sub
sub addzl()
set rdsInfo = Server.CreateObject("ADODB.Recordset")
rdsInfo.Open "zl",Conn,3,3
rdsInfo.AddNew
rdsInfo("lx") =changechr(Request.Form("lx"))
rdsInfo("class") =changechr(Request.Form("class"))
rdsInfo("brand") = changechr(Request.Form("brand"))
rdsInfo("color") = changechr(Request.Form("color"))
rdsInfo("money") = changechr(Request.Form("money"))
rdsInfo("foruse") = changechr(Request.Form("foruse"))
rdsInfo("place") = changechr(Request.Form("place"))
rdsInfo("PicUrl") = changechr(Request.Form("PicUrl"))
rdsInfo("UploadFiles") = changechr(Request.Form("UploadFiles"))
rdsInfo("color") =changechr(Request.Form("color"))
rdsInfo("home") = changechr(Request.Form("home"))
rdsInfo("qixian") = changechr(Request.Form("qixian"))
rdsInfo("jianjie") = changechr(Request.Form("jianjie"))
rdsInfo("name") =changechr(Request.Form("name"))
rdsInfo("qq") = changechr(Request.Form("qq"))
rdsInfo("phone") = changechr(Request.Form("phone"))
rdsInfo("post") = changechr(Request.Form("post"))
rdsInfo("provinceCN") = changechr(Request.Form("TPL_prov"))
rdsInfo("capitalCN") = changechr(Request.Form("TPL_city"))
rdsInfo("mobile") = changechr(Request.Form("mobile"))
rdsInfo("fax") = changechr(Request.Form("fax"))
rdsInfo("email") = changechr(Request.Form("email"))
rdsInfo("web") = changechr(Request.Form("web"))
rdsInfo("address") = changechr(Request.Form("address"))
rdsInfo("ip") =GetIp()
if Session("useridqc")<>"" then
rdsInfo("userid") =Session("useridqc")
end if
if Session("jb")=1 then
rdsInfo("sh") =1
end if
rdsInfo.Update
rdsInfo.Close
set rdsInfo = nothing
if Session("jb")=1 then
else
end if
Response.end
conn.close
set conn=nothing
end sub
Sub DoDelFile(sPathFile)
On Error Resume Next
Dim oFSO
Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
oFSO.DeleteFile(Server.MapPath(sPathFile))
Set oFSO = Nothing
End Sub
Sub DoDelFileadm(sPathFile)
On Error Resume Next
Dim oFSO
Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
oFSO.DeleteFile(Server.MapPath("../user/"&sPathFile))
Set oFSO = Nothing
End Sub
Function SearchFieldValue(vTableName,vFieldName,vFieldValue)
dim strField,sqlField
set strField = Server.CreateObject("ADODB.Recordset")
sqlField = "Select * From "& vTableName &" Where "& vFieldName &" = '"& vFieldValue &"'"
strField.Open sqlField,Conn
if not strField.EOF then
SearchFieldValue = True
else
SearchFieldValue = False
end if
strField.Close
set strField = nothing
end Function
function changechr(str)
changechr=replace(replace(replace(replace(str,"<","<"),">",">"),chr(13),"<br>")," ","")
changechr=replace(replace(replace(replace(changechr,"'",""),"and",""),"insert",""),"set","")
changechr=replace(replace(replace(replace(changechr,"select",""),"update",""),"delete%20from",""),chr(34),""")
end function
Function SearchEditFieldValue(vTableName,vFieldname,vFieldValue,vIDName,intIDValue)
dim strField1,sqlField1
set strField1 = Server.CreateObject("ADODB.Recordset")
sqlField1 = "Select * From "& vTableName &" Where "& vFieldName &" = '"& vFieldValue &"'"
strField1.Open sqlField1,Conn
if not strField1.EOF then
do while not strField1.EOF
if int(intIDValue) <> strField1(vIDName) then
SearchEditFieldValue = True
exit Function
end if
strField1.MoveNext
loop
SearchEditFieldValue = False
end if
strField1.Close
set strField1 = nothing
End Function
Function IsTimeOut(vMember,vPassWord)
Dim rdsMember1
Dim sqlMember1
set rdsMember1 = Server.CreateObject("ADODB.Recordset")
sqlMember1 = "Select * From Dat_Member Where Member = '"& vMember &"' And PassWord = '"& vPassWord &"'"
rdsMember1.Open sqlMember1,Conn
If Not rdsMember1.EOF Then
IsTimeOut = False
Else
IsTimeOut = True
End if
rdsMember1.Close
set rdsMember1 = nothing
End Function
'/獲得會員的編號/
Function getMemberKey(Member)
Dim rdsMember
Dim sqlMember
set rdsMember = Server.CreateObject("ADODB.Recordset")
sqlMember = "Select * From Dat_Member Where Member = '"& Member &"'"
rdsMember.Open sqlMember,Conn,1,1
if not rdsMember.EOF then
getMemberKey = rdsMember("MemberKey")
else
getMemberKey = 0
end if
rdsMember.Close
set rdsMember = nothing
End Function
function dvHTMLEncode(fString)
if not isnull(fString) then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(9), " ")
fString = Replace(fString, CHR(34), """)
fString = Replace(fString, CHR(39), "'")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
fString = Replace(fString, CHR(10), "<BR> ")
dvHTMLEncode = fString
end if
end function
Function LeftT(str,n)
If len(str)<=n/2 Then
LeftT=str
Else
Dim TStr
Dim l,t,c
Dim i
l=len(str)
t=l
TStr=""
t=0
for i=1 to l
c=asc(mid(str,i,1))
If c<0 then c=c+65536
If c>255 then
t=t+2
Else
t=t+1
End If
If t>n Then exit for
TStr=TStr&(mid(str,i,1))
next
LeftT = TStr+".."
End If
End Function
function GetIp()
getclientip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If getclientip = "" Then
getclientip = Request.ServerVariables("REMOTE_ADDR")
end if
GetIp = getclientip
end function
Function bbHTMLDecode(reString)
Dim Str:Str=reString
If Not IsNull(Str) Then
Str = Replace(Str, "&", "&")
Str = Replace(Str, ">", ">")
Str = Replace(Str, "<", "<")
Str = Replace(Str, " ", CHR(32))
Str = Replace(Str, " ", CHR(9))
Str = Replace(Str, "    ", CHR(9))
Str = Replace(Str, """, CHR(34))
Str = Replace(Str, "'", CHR(39))
Str = Replace(Str, "", CHR(13))
Str = Replace(Str, "<br>", CHR(10))
Str = Replace(Str, "<BR>", CHR(10))
bbHTMLDecode = Str
End If
End Function
Function RtnReplaceInt(iCheck,iDefault)
If Trim(iCheck)="" Then
RtnReplaceInt = iDefault
Exit Function
End If
If IsNumeric(iCheck)=false Then
RtnReplaceInt = iDefault
Exit Function
End If
RtnReplaceInt = iCheck
End Function
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -