<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> ������ϢӦ��ְҵ����ѧԺ����ѧԷ
��վ������
| | | | | |
asp�����
�������ݿ�

����һ��ֱ�Ӹ������ݿ����͡�λ�á��ļ�����һ�����������������ַ�ʽ

<%
set db=Server.Createobject("ADODB.Connection")
db.Open "DBQ="&Server.Mappath("·����ʾ/���ݿ���.mdb")&";DRIVER={Microsoft Access Driver (*.mdb)};"
%>

������

��������������Դ��ʽ����ȫ��Ҳ������ֲ������Ҫ�з���������Ȩ������ODBC����Դ

<%
set db=Server.Createobject("ADODB.Connection")
db.Open "����Դ��"
%>

���Բ��ð����ļ���ʽ�������ݿ�

conn.asp���������������ݿ����

-------------------------------------------------------------
�ӱ���ȡ��Ϣ���������ݿ�洢

<%
dim t1,t2
t1=Request("t1")
t2=Request("t2")
t3=Request("REMOTE_ADDR")
db.Execute "insert into ѧ��������Ϣ(����,ѧ��,ip��ַ,����ʱ��) values ('"& t1 &"','" & t2 & "','" & t3 & "','" & now() & "')"
db.close
response.write"�ɹ�����"
����(response.redirect "http://.....")
%>

-------------------------------------------------------------
��ҳ�������ʾ���ݿ���Ϣ

��ʾ���ݿ����ȫ����Ϣ

<%
set rs=db.execute("select * from ѧ��������Ϣ")
%>
<%do while not rs.eof%>
����<%=rs("����")%>

ѧ��<%=rs("ѧ��")%>

<%
rs.movenext
loop
%>

��������ѯ���ݿ������Ϣ

<%
If Trim(Request("sname"))<>"" and Trim(Request("sid"))<>"" Then
sname=Trim(Request("sname"))
sid=Trim(Request("sid"))
Set rs=Server.CreateObject("ADODB.Recordset")
strSql="Select * From ѧ���ɼ��� Where ����='"&sname&"' and ѧ��='"&sid&"'"
Else
Response.Write "��Ϣ��ȫ"
end if
If Not rs.Bof And Not rs.Eof Then
Response.Write "��Ϣ���£�"
%>
������<%=rs("����")%>��
�÷֣�<%=rS("�����ܷ�")%>

<%
Else
Response.Write "�Բ���û���ҵ������Ϣ"
end if
%>

��ʾ����

<%
id=request("id")
sql="select * from ���� where id =" & id
set rs=db.execute(sql)
%>

<%=RS("����")%>

<%=RS("����")%>

�����¼

<%
strSql ="Select * From ����Ա where �û���='" & Request.Form("Username") & "' And ����='" & Request.Form("Password") & "'"
Set rs=db.Execute(strSql)
If Not rs.Bof And Not rs.Eof Then
Session("�û���") = RS("�û���")
Response.Redirect "ok.asp"
else
Response.Redirect "err.asp"
End If
%>

ҳ����֤�Ƿ�������¼

<%
if isempty(Session("�û���")) then
Response.Redirect "login.htm"
end if
%>

���ã�<%=Session("�û���")%>

���ݿ���Ϣ�����б�

<%
sql="select * from ����"
set rs=db.execute(sql)
%>
<%do while not rs.eof%>
"><%=RS("����")%>">ɾ��">����

<%
rs.movenext
loop
%>

ɾ��

<%
id=request.querystring("id")
sql="delete from ��Ϣ where id =" & id
db.Execute(sql)
db.close
Response.Redirect "infolistadmin.asp"
%>

����

<%

id=Request("id")

Sql ="Select * From ��Ϣ where id=" & id
Set rs=db.Execute(Sql)
%>


����
"/>
����





<%
If Request("t1")<>"" Then
t1=Request("t1")
t2=Request("t2")

sql="update ��Ϣ set ����='" & t1 & "',����='" & t2 & "' where id=" & id
db.execute(sql)

Response.Redirect "infolistadmin.asp"
Else
Response.Write ""
End If
%>

����ʱ仯

<%
id=request.QueryString("id")
sql="update ��Ϣ set �����=�����+1 where id=" & id
db.execute(sql)
%>

�ж�����������ת

<%
ti=Left(Request.servervariables("REMOTE_ADDR"),3)
if ti="10." then
response.redirect "http://.../"
else
response.redirect "http://.../"
end if
%>

������ʾ�����ַ����������...

<%
text=rs("title")
i=22
if len(text)>i then
text=left(text,i)
response.write (text&"...")
else
response.write (text)
end if
%>

��������ѯ����ʾ���¼�����¼

sql="select top 6 * from zb4 where t='jxc' and pas='1' order by id desc"

��������ѯ������������and or

where (�γ����ڽ���='" & course1 & "' and t10='" & Request("f") & "') or (�γ����ڽ���='" & course2 & "' and t10='" & Request("f") & "')

�رռ�¼¼�����ݿ�����

<%
rs.close
set rs=nothing
%>
<%
db.close
set db=nothing
%>

��Ϣ����������ʾ�������ļ�¼��

<%
if ss="����" Then
strSql="Select * From zb Where t1='�鴦' and bod Like '%" & Trim(Request("word")) & "%' order by submit_date desc,id desc"

set rs=Server.CreateObject("ADODB.Recordset")

rs.Open strSql,db,1

If rs.RecordCount<=0 Then
Response.Write "�Բ���û���ҵ������Ϣ"
Else
Response.Write "���ҵ�" & rs.RecordCount & "�������Ϣ"

do while not rs.eof
%>
"><%=RS("title")%>��

<%
rs.movenext
loop
End If
End If
%>

��ҳ��ʾ�Ĺ����б��У�ִ��ɾ������²������ֻص���ҳ����ҳ��

��ij����Ϣ���д���������ID�ţ���Ҫ���ݸ���Ϣ������ҳҳ���ҳ�ţ�����del.asp?id=<%=rs("id")%>&page_no=<%=page_no%>

��del.aspҳ������ʱ��

page_no=request.querystring("page_no")

Response.Redirect "list.asp?page_no=" & page_no

ģ����ѯ

Like '%" & Trim(Request("word")) & "%'
��

isnull(RS("t7"))

RS("t7")=""

��ҳ��ʾ

<%
sql="select * from ����� order by t11 desc"
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open sql,db,1
if not rs.bof and not rs.eof then
dim page_size
dim page_no
dim page_total
page_size=50
if Request("page_no")="" then
page_no=1
else
page_no=cint(Request("page_no"))
end if
session("page_no")=page_no
rs.pagesize=page_size
page_total=rs.pagecount
rs.absolutepage=page_no
dim i,j
i=0
j=page_size %>
<%do while not rs.eof and j>0
i=i+1
j=j-1
%>

<%=rs("t5")%>
<%
rs.movenext
loop
end if
%>

[��ҳ�ǵ�<%=page_no%>/<%=page_total%>ҳ]
[activityarrange.asp?page_no=1">��ҳ]
<% if int(page_no)>1 then %>
[activityarrange.asp?page_no=<%=cstr(int(page_no)-1)%>">��һҳ]
<% end if%>
<% if int(page_no)
[ activityarrange.asp?page_no=<%=cstr(int(page_no)+1)%>">��һҳ]
<%end if%>
[ activityarrange.asp?page_no=<%=cstr(int(page_total))%>">ĩҳ]

����ҳ��Ȩ���жϣ���������ҳ�汨��

<%
if Session("Name")="����" then

%>

������������

<%
else
Response.Write "������"
end if
%>