Close : .......
sql="select * from thisinh where tenthisinh like '" & tenKH & "%';"
rs.open sql,conn
Kiem Tra Javascript
TRAÀN ÑÌNH NGUYEÃN
dñòa chæ web baûng maøu : E:\nguyen\nnn\bang_mau.htm
ÑEÁM SOÁ DOØNG COÙ TRONG ACCESS : sodong=RS.RecordCount
<% dim sodong
sodong=RS.RecordCount
Response.Write
while not RS.EOF
so = Trim(Mid(RS("Cau"),5,2))
so=Replace(so,":","")
sostr=trim(so)
so = Cint(sostr)
cau = Trim(left(RS("Cau"),4))
causo=cau+sostr
%>
<% For i=1 to sodong
caâu leänh
next
%>
<%response.buffer=true%>
<% session ("NHAP")=false
NINA=Trim(Request.form("NIC"))
PA=Trim(Request.form("PASS"))
NGAY=Trim(Request.form("NGAYHH"))
if NINA<>"" AND PA<>"" AND NGAY<>"" then
sqlstr="select *from CHART where NICKNAME='"+NINA+"';"
rs.open sqlstr,conn
if rs.bof and rs.eof then
session ("nhap")=false
sqlthem="INSERT INTO CHART VALUES('"+NINA+"','"+PA+"','"+NGAY+"','"+" "+"')"
conn.execute sqlthem
response.redirect "DANHMUCNICK.ASP"
else
session ("nhap")=true
response.redirect "NHAP_TRUNGNICK.ASP"
RS.CLOSE
CONN.CLOSE
SET RS=NOTHING
SET CONN=NOTHING
end if
end if
%>
CAÁU TRUÙC IN
<% EMAILL=trim(ReQuest.QuerysTring("DCNGNH"))
session("nguyen")=EMAILL
sqlstim="select * from LUUTRU where DIACHINGNH='"+EMAILL+"';"
rs.open sqlstim,conn
if rs.bof and rs.eof then
session ("nguyen")=false
response.redirect "TRANG_hopthurong.ASP"
ELSE
session ("nguyen")=true
RS.MOVEFIRST
%>
#cc66cc
<%DO WHILE NOT RS.EOF%>
<%
RESPONSE.WRITE "| "&RS("DATA")&" | XOAÙ_THÖ |
"
RS.MOVENEXT
LOOP
%>
<%
END IF
RS.CLOSE
SET RS=NOTHING
SET CONN=NOTHING
'aaa=trim(ReQuest.QuerysTring("DCNGNH"))
'session("nguyen")=aaa
%>
border="5" cellpadding="5" align="center" valign="middle"
caäp nhaät
<%
macn=trim(ReQuest.form("ms"))
tt=trim(ReQuest.form("ten"))
nt=trim(ReQuest.form("nss"))
ns=trim(ReQuest.form("nsi"))
loo=trim(ReQuest.form("lopp"))
dch=trim(ReQuest.form("dcc"))
nn=trim(ReQuest.form("ng"))
SQLSUA="UPDATE DOCGIA SET TENDG='"+tt+"', NAMSINH='"+nt+"', NOISINH='"+ns+"', LOP='"+loo+"', DC='"+dch+"',NGAYDK='"+nn+"' WHERE MSDG='"+macn+"';"
RS.OPEN SQLSUA,CONN
CONN.CLOSE
SET CONN=NOTHING
%>
<%response.buffer=true%>
<%
matim=trim(ReQuest.form("ms"))
session("cn")=matim
sqlstim="select * from DOCGIA where MSDG='"+matim+"';"
rs.open sqlstim,conn
if rs.bof and rs.eof then
session ("cn")=false
response.redirect "NNtrang_DG.asp"
ELSE
session ("cn")=true
%>
quaûn lyù xoaù
<%
MAHH=TRIM(request.form("MAHANGHOA"))
sqlxoa="DELETE FROM SANPHAM WHERE MASP='"+MAHH+"'"
conn.execute sqlxoa
response.redirect"dmhh.asp"
response.end
conn.close
set conn=nothing
%>
<%response.buffer=true%>
<%
sdt="select *from Dethi;"
rs.open sdt,conn
if rs.bof and rs.eof then
session ("dt")=false
response.redirect "qt_dtrong.asp"
%>
vbscript
a=Trim(Request.form("m"))
b=Trim(Request.form("ten"))
c=Trim(Request.form("gt"))
d=Trim(Request.form("ns"))
e=Trim(Request.form("dc"))
f=Trim(Request.form("dt"))
g=Trim(Request.form("ndk"))
uu=Trim(Request.form("us"))
pp=Trim(Request.form("ps"))
k1=left(b,3)
k2=right(d,3)
k3=mid(e,5,7)
k4=mid(g,1,3)
hp="no"
response.redirect "dshocvien.asp"
<%response.buffer=true%>
<%
s="INSERT INTO key VALUES('"+a+""+k1+""+k2+""+k3+""+k4+"','"+uu+"','"+pp+"','"+""+"')"
conn.execute s
%>
session ("capd")=trim(ReQuest.form("cd"))
session ("dtt")=trim(ReQuest.form("dt"))
session ("mahvv")
OPENNEW WINDOWNS
onClick="newwindow()"