Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

Çë½Ì¸ü¸ÄASPÔ´ÂëʵÏÖÄ£ºý²éѯµÄÎÊÌâ,лл

ÎÒÊÇÐÂÊÖÖеÄÐÂÊÖ,³õѧASP,ÏÂÔØÁËÒ»¸ö²éѯÐÞ¸ÄÔ±¹¤Ô´Âëµ÷ÊÔѧϰ,ACCESS¿â×Ö¶ÎÖÐÓû§ÃûUserName, ÐÕÃûName, ȨÏÞpurview, ²¿ÃÅbranch,Ö°ÎñjobµÈ,Ô´ÂëÖ»Ö§³ÖÓÃ"²¿ÃÅ"²éѯ,ÎÒÏë¸Ä³ÉÊäÈë¿âÀïÈÎÒâ×ֶεÄÄÚÈÝ,¶¼¿ÉÒÔÏÔʾȫ²¿×ÊÁÏ,±ÈÈç˵ÊäÈë"Àî"»òÐÔ±ð"Å®",Êý×Ö"2123"¾Í°Ñ°üº¬ÕâЩ¹Ø¼ü×ÖµÄÄÚÈݶ¼ÏÔʾ³öÀ´,ÎÒ¿´ÍøÉϺܶàÊǼÓSQLÓï¾äÀ´ÊµÏÖ,ÎÒÊDzËÄñÒ»¸ö,Ö»ÄÜ¿´³öÕâ¸ö³ÌÐòÊÇÓÃIFÀ´²é,Ó¦ÈçºÎÌí¼ÓÓï¾ä,ÔÚÄÄÀïÌí¼Ó,²úÉúÄ£ºý²éѯ¹¦ÄÜÄØ?
Çë½Ì¸÷λ´óÏÀ!¶àлÁË!

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Conn/conn.asp" -->
<%
'²éѯÓû§ÐÅÏ¢
Set rs_user = Server.CreateObject("ADODB.Recordset")
sql_user= "SELECT ID, UserName, purview from Tab_User WHERE UserName = '"&session("UserName")&"'"
rs_user.open sql_user,conn,1,3
'²éѯԱ¹¤ÐÅÏ¢
Set rs_personnel = Server.CreateObject("ADODB.Recordset")
sql_P="SELECT ID,UserName,Name,purview,branch,job from Tab_User"&_
" ORDER BY UserName ASC"
rs_personnel.open sql_P,conn,1,3
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Ô±¹¤ÐÅÏ¢²éѯ </title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <


Ïà¹ØÎÊ´ð£º

asp³õѧÎÊÌâ¡£responseÕÒ²»µ½

<%@language="vbscript"%>
<%option explicit%>
<html>
<head> <title>xxx </title> </head>
<script language=vbs>
'×¢Òâ±äÁ¿ ......

Ç뾫ͨasp³ÌÐòµÄÅóÓѰïæÐÞ¸ÄÍøÕ¾

ÎÒÃÇÓÐÒ»¸öÍøÕ¾Ä£°å£¬www.c111.com.cn,Ï£ÍûÐÞ¸ÄһЩµØ·½£º
1£©µã»÷×ó²à¡°·þÎñÆ·ÅÆ¡±µÄÆäÖÐÒ»¸öС·ÖÀ࣬Èç¡°×ãÇò¡±£¬½çÃæµÄÓÒ²à¾Í³öÏÖÈçwww.c111.com.cn/1.jpg£¬µã»÷1.jpgÉÏ·½µÄÆäÖÐÒ»¸öÆ·ÅÆlogo£¬ÏÂÃæ¾Í³öÏÖÏà¹ØµÄÍ ......

aspÊÂÎñÎÊÌâ

<%On Error Resume Next
Set conn=Server.CreateObject("ADODB.Connection")
conn.begintrans
conn.Open ("Driver={SQL Server};server=(local);uid=sa;database=student;pwd=") ......

Çó¸ÄÒ»¸öASPС³ÌÐò¼ÓÉÏ´«¹¦ÄܺÍÏÂÔØ¹¦ÄÜ¡£¡£

Îļþ£ºfolder.inc
HTML code:

<%
Dim folderini,pos,pageName
fPath = Request.ServerVariables("PATH_TRANSLATED")
pos = instrRev(fPath,"\")
folderini = Left(fPath,pos)+&qu ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ