<!--#include file="CONN.ASP"-->
<!--#include file=cookies.asp-->
<link rel="stylesheet" type="text/css" href="images/fox.css">
<style type=text/css>
BODY{
	margin:0px;
	FONT-SIZE: 12px;
	FONT-FAMILY: "ËÎÌå", "Verdana", "Arial", "Helvetica", "sans-serif";
	background-color: #CCCC99; 
	scrollbar-highlight-color: #CC9933; 
	scrollbar-arrow-color: #FFFFFF; 
	scrollbar-base-color: #CC9933
}
table { border:0px; }
td { font:normal 12px ËÎÌå; }
img { vertical-align:bottom; border:0px; }
a { font:normal 12px ËÎÌå; color:#111111; text-decoration:none; }
a:hover { color:#384780;text-decoration:underline; }
.sec_menu { border-left:2px solid #CC3300; border-right:2px solid #CC3300; border-bottom:2px solid #CC3300; overflow:hidden; background:#ffffff; }
.menu_title {background-color: #335EA8;color: white;font-size: 12px;font-weight:bold;height: 25; }
.menu_title span { position:relative; top:2px; left:8px; color:#FFFF00; font-weight:bold; }
.menu_title2 {background-color: #335EA8;color: white;font-size: 12px;font-weight:bold;height: 25; }
.menu_title2 span { position:relative; top:2px; left:8px; color:#FEFEFE; font-weight:bold; }
input,select,Textarea{
font-family:ËÎÌå,Verdana, Arial, Helvetica, sans-serif; font-size: 12px;}
</style>
<%
function chkijob(char) 
if instr(char,"'") then 
response.write "´íÎó×Ö·û£¡"
response.end 
end if
if instr(char,"|") then
response.write "´íÎó×Ö·û£¡"
response.end 
end if
if instr(char,"<") then
response.write "´íÎó×Ö·û£¡"
response.end 
end if
if instr(char,">") then
response.write "´íÎó×Ö·û£¡"
response.end 
end if
if instr(char,"&") then
response.write "´íÎó×Ö·û£¡"
response.end 
end if
if instr(char,"%") then
response.write "´íÎó×Ö·û£¡"
response.end 
end if
if instr(char,";") then
response.write "´íÎó×Ö·û£¡"
response.end 
end if
if instr(char,"$") then
response.write "´íÎó×Ö·û£¡"
response.end 
end if
end function
function IsValidEmail(email)
dim names, name,i,c
IsValidEmail = true
names = Split(email, "@")
if UBound(names) <> 1 then
   IsValidEmail = false
   exit function
end if
for each name in names
   if Len(name) <= 0 then
     IsValidEmail = false
     exit function
   end if
   for i = 1 to Len(name)
     c = Lcase(Mid(name, i, 1))
     if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric(c) then
       IsValidEmail = false
       exit function
     end if
   next
   if Left(name, 1) = "." or Right(name, 1) = "." then
      IsValidEmail = false
      exit function
   end if
next
if InStr(names(1), ".") <= 0 then
   IsValidEmail = false
   exit function
end if
i = Len(names(1)) - InStrRev(names(1), ".")
if i <> 2 and i <> 3 then
   IsValidEmail = false
   exit function
end if
if InStr(email, "..") > 0 then
   IsValidEmail = false
end if
end function
dim rs,sql,lei,bt,nr,z,ht,tel,name,username,dt,d,id,y,r
dim tj
tj=trim(request("tj"))
username=request.cookies("fox")("username")
lei=trim(request("lei"))
bt=trim(request("bt"))
nr=trim(request("nr"))
z=trim(request("z"))
ht=trim(request("ht"))
tel=trim(request("tel"))
name=trim(request("name"))
dt=trim(request("dt"))
d=trim(request("d"))
y=trim(request("y"))
r=trim(request("r"))
id=trim(request("id"))
	set rs=server.createobject("adodb.recordset")
	sql="select * from [FOX_dm] where id="&cstr(id)
	rs.open sql,conn,1,3
if rs.eof then
response.write "²»´æÔÚ£¡"
response.end
end if
if  lei<>"0"  then
rs("lei")=lei
end if
rs("bt")=bt
rs("z")=z
rs("ht")=ht
rs("nr")=nr
rs("name")=name
rs("tel")=tel
rs("username")=username
rs("y")=int(y)
rs("r")=int(r)
if tj="0" then
rs("yz")=1
rs("tj")=0
end if
if tj="1" then
rs("tj")=1
rs("yz")=1
end if
rs("sj")=now()
if dt="1" then
rs("d")=rs("d")+int(d)
end if
rs.update
rs.close
set rs=nothing
closedb
response.write "<p align=""center"">ÐÞ¸Ä<font color=ff0000>"&bt&"</font>³É¹¦£¡</p>"
response.write "<meta http-equiv=refresh content=""1;URL=dm.asp"">"
%>