2.8w+
社区成员
帮忙解决问题~~
sel1.asp---------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK REL=StyleSheet HREF="../../site.css" TYPE="text/css">
<title>无标题文档</title>
<script language="JavaScript" src="../../JS/js_win.js"></script>
</head>
<body background="../../images/bg2.gif"><div align="center">
<div align="center">
<p><em><font color="#125B6D" size="5"><u>查询</u></font></em>
<%dim sou
dim num
sou=request.Form("sel")%>
<%
set conn = server.createobject("adodb.connection")
cnor="driver={sql server};server=wgg;uid=sa;pwd=swgzs;database=ccdams"
conn.open cnor
set rs=server.createobject("adodb.Recordset")
rs.Source="表管理"'表或sql语句‘若写成sql语句形式，无法判数据源
rs.ActiveConnection=conn
rs.CursorType=1
rs.LockType=3
rs.open%>
<%
i=1
do until rs.eof
if cint(sou)=i then
truesel=1
sou1=rs("tablename")
Session("columnnum")=i
num=i%>
<% end if
i=i+1
rs.movenext
loop
rs.movefirst()
%>
<%if truesel=1 then
rs.close
set rs = server.createobject("adodb.Recordset")'创建Recordset对象
rs.Source=sou1'表或sql语句‘若写成sql语句形式，无法判数据源
session("mysourse")=sou1%>
<%rs.ActiveConnection=conn
rs.CursorType=1
rs.LockType=3
rs.open
set conn = server.createobject("adodb.connection")
cnor="driver={sql server};server=wgg;uid=sa;pwd=swgzs;database=ccdams"
conn.open cnor
set chinars=server.createobject("adodb.Recordset")
chinars.ActiveConnection=conn
chinars.CursorType=1
chinars.LockType=3
chinars.Source="表字段"
chinars.open
end if%>
<%j=1%>
<%Session("passsel1")=1%>
<%if truesel<>1 then%>
</p>
<p> </p>
</div>
<form action="sel1.asp" method="post">
<%j=0%>
<div align="center">请选择您要查询的表格名称：
<select name="sel">
<!-- 若选取了表，则从 3 开始-->
<option value=<%=(i)%>></option>
<%do until rs.eof
j=j+1%>
<option value=<%=j%>><%=rs("chinaname")%></option>
<!-- 第零个字段开始，故一个字段的只零-->
<%=rs("chinaname")%>
<%rs.movenext
loop
%>
</select>
<input name="" type="submit" value="确 定"></P>
</div>
</form>
<div align="center">
<%end if%>
</div>
<form action="sel2.asp" method="post">
<%if rs.source<>"表管理" then%>
<p align="center"> </p>
<p align="center"> 请选择您要查询的条件项：</p>
<p align="center">
<select name="mutisel" size="5" multiple>
<%for each obj in rs.fields%>
<option value="<%=obj.name%>"><%=chinars(num-1)%></option>
<%chinars.movenext%>
<%next%>
</select>
</p>
<p align="center">
<input name="" type="submit" value="确 定">
<input name="" type="button" value="返 回" onClick="location.href='sel1.asp'">
</form>
<%end if%>
<script language="JavaScript" src="../../JS/Calendar.js"></script>
</body>
</html>
这是第一个页面。
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK REL=StyleSheet HREF="../../site.css" TYPE="text/css">
<title>无标题文档</title>
<script language="JavaScript" src="../../JS/js_win.js"></script>
</head>
<body background="../../images/bg2.gif"><div align="center">
<div align="center">
<p><em><font color="#125B6D" size="5"><u>查询</u></font></em>
<%dim sou
dim num
sou=request.Form("sel")%>
<%
set conn = server.createobject("adodb.connection")
cnor="driver={sql server};server=wgg;uid=sa;pwd=swgzs;database=ccdams"
conn.open cnor
set rs=server.createobject("adodb.Recordset")
rs.Source="表管理"'表或sql语句‘若写成sql语句形式，无法判数据源
rs.ActiveConnection=conn
rs.CursorType=1
rs.LockType=3
rs.open%>
<%
i=1
do until rs.eof
if cint(sou)=i then
truesel=1
sou1=rs("tablename")
Session("columnnum")=i
num=i%>
<% end if
i=i+1
rs.movenext
loop
rs.movefirst()
%>
<%if truesel=1 then
rs.close
set rs = server.createobject("adodb.Recordset")'创建Recordset对象
rs.Source=sou1'表或sql语句‘若写成sql语句形式，无法判数据源
session("mysourse")=sou1%>
<%rs.ActiveConnection=conn
rs.CursorType=1
rs.LockType=3
rs.open
set conn = server.createobject("adodb.connection")
cnor="driver={sql server};server=wgg;uid=sa;pwd=swgzs;database=ccdams"
conn.open cnor
set chinars=server.createobject("adodb.Recordset")
chinars.ActiveConnection=conn
chinars.CursorType=1
chinars.LockType=3
chinars.Source="表字段"
chinars.open
end if%>
<%j=1%>
<%Session("passsel1")=1%>
<%if truesel<>1 then%>
</p>
<p> </p>
</div>
<form action="sel1.asp" method="post">
<%j=0%>
<div align="center">请选择您要查询的表格名称：
<select name="sel">
<!-- 若选取了表，则从 3 开始-->
<option value=<%=(i)%>></option>
<%do until rs.eof
j=j+1%>
<option value=<%=j%>><%=rs("chinaname")%></option>
<!-- 第零个字段开始，故一个字段的只零-->
<%=rs("chinaname")%>
<%rs.movenext
loop
%>
</select>
<input name="" type="submit" value="确 定"></P>
</div>
</form>
<div align="center">
<%end if%>
</div>
<form action="sel2.asp" method="post">
<%if rs.source<>"表管理" then%>
<p align="center"> </p>
<p align="center"> 请选择您要查询的条件项：</p>
<p align="center">
<select name="mutisel" size="5" multiple>
<%for each obj in rs.fields%>
<option value="<%=obj.name%>"><%=chinars(num-1)%></option>
<%chinars.movenext%>
<%next%>
</select>
</p>
<p align="center">
<input name="" type="submit" value="确 定">
<input name="" type="button" value="返 回" onClick="location.href='sel1.asp'">
</form>
<%end if%>
<script language="JavaScript" src="../../JS/Calendar.js"></script>
</body>
</html>
这是第一个页面。
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
fosygangguo 2004-08-05
这是第二个页面
SQL数据库
名称：CCDAMS
表：表字段，表管理，f_zl_jnml,f_zl_flml
字段：表字段里面 T_zl_jnml nvarchar255
T_zl_flml nvarchar 255
T_zl_jnml T_zl_flml
序号 344
文件编号 34
责任者 34
文件提名 34
日期
页次
备注
ID号
卷内文件
表管理里面 tablename nvarchar 50
chinaname nvarchar 50
tablename chinaname
T_zl_jnml 卷内目录
T_zl_flml 23
f_zl_jnml里面
1 F_xh int 4 1
0 f_wjbh varchar 60 1
0 F_zrz varchar 50 1
0 F_wjtm varchar 200 1
0 F_rq varchar 30 1
0 F_yh varchar 20 1
0 F_bz varchar 100 1
0 F_id bigint 8 0 （自增长）
0 F_ajtmid bigint 8 1
0 F_dh varchar 20 1
f_zl_flml里面
1 F_xh int 4 1
0 F_dh varchar 20 1
0 F_ajtm varchar 100 1
0 F_bzdw varchar 100 1
0 F_bzrq varchar 30 1
0 F_jgrq varchar 30 1
0 F_cfwz varchar 20 1
0 F_js int 4 1
2 F_id int 4 0
0 F_zmlxh int 4 1
0 F_ltj int 4 1
0 F_ltz int 4 1
0 F_zpc int 4 1
0 F_zpz int 4 1
0 F_wzzlj int 4 1
0 F_wzzlz int 4 1
0 F_mj varchar 20 1
0 F_bgqx varchar 20 1
0 F_bz varchar 50 1
0 f_ljsm varchar 100 1
0 f_ljr varchar 20 1
0 f_ljrq varchar 30 1
0 f_shr varchar 20 1
0 f_shrq varchar 30 1
0 F_lb varchar 10 1
0 F_finish bit 1 1
0 F_select bit 1 1
0 f_lsh int 4 1
0 F_djj int 4 1
0 F_ajtm_xh int 4 1
0 F_y1 varchar 4 1
0 F_y2 varchar 4 1
0 F_y3 varchar 4 1
0 F_y4 varchar 4 1
0 F_m1 varchar 2 1
0 F_r1 varchar 2 1
0 F_m2 varchar 2 1
0 F_m3 varchar 2 1
0 F_m4 varchar 2 1
0 F_r2 varchar 2 1
0 F_r3 varchar 2 1
0 F_r4 varchar 2 1
0 f_jsshr varchar 8 1
0 f_dajsr varchar 8 1
0 f_jssm varchar 50 1
0 F_bjjs int 4 1
0 f_jsshrrq varchar 30 1
0 f_dajsrrq varchar 30 1
0 f_now varchar 20 1
当我选择第一个表查询时没什么问题，第二个表就不能显示表里的字段了，帮忙。。。。。。。
SQL数据库
名称：CCDAMS
表：表字段，表管理，f_zl_jnml,f_zl_flml
字段：表字段里面 T_zl_jnml nvarchar255
T_zl_flml nvarchar 255
T_zl_jnml T_zl_flml
序号 344
文件编号 34
责任者 34
文件提名 34
日期
页次
备注
ID号
卷内文件
表管理里面 tablename nvarchar 50
chinaname nvarchar 50
tablename chinaname
T_zl_jnml 卷内目录
T_zl_flml 23
f_zl_jnml里面
1 F_xh int 4 1
0 f_wjbh varchar 60 1
0 F_zrz varchar 50 1
0 F_wjtm varchar 200 1
0 F_rq varchar 30 1
0 F_yh varchar 20 1
0 F_bz varchar 100 1
0 F_id bigint 8 0 （自增长）
0 F_ajtmid bigint 8 1
0 F_dh varchar 20 1
f_zl_flml里面
1 F_xh int 4 1
0 F_dh varchar 20 1
0 F_ajtm varchar 100 1
0 F_bzdw varchar 100 1
0 F_bzrq varchar 30 1
0 F_jgrq varchar 30 1
0 F_cfwz varchar 20 1
0 F_js int 4 1
2 F_id int 4 0
0 F_zmlxh int 4 1
0 F_ltj int 4 1
0 F_ltz int 4 1
0 F_zpc int 4 1
0 F_zpz int 4 1
0 F_wzzlj int 4 1
0 F_wzzlz int 4 1
0 F_mj varchar 20 1
0 F_bgqx varchar 20 1
0 F_bz varchar 50 1
0 f_ljsm varchar 100 1
0 f_ljr varchar 20 1
0 f_ljrq varchar 30 1
0 f_shr varchar 20 1
0 f_shrq varchar 30 1
0 F_lb varchar 10 1
0 F_finish bit 1 1
0 F_select bit 1 1
0 f_lsh int 4 1
0 F_djj int 4 1
0 F_ajtm_xh int 4 1
0 F_y1 varchar 4 1
0 F_y2 varchar 4 1
0 F_y3 varchar 4 1
0 F_y4 varchar 4 1
0 F_m1 varchar 2 1
0 F_r1 varchar 2 1
0 F_m2 varchar 2 1
0 F_m3 varchar 2 1
0 F_m4 varchar 2 1
0 F_r2 varchar 2 1
0 F_r3 varchar 2 1
0 F_r4 varchar 2 1
0 f_jsshr varchar 8 1
0 f_dajsr varchar 8 1
0 f_jssm varchar 50 1
0 F_bjjs int 4 1
0 f_jsshrrq varchar 30 1
0 f_dajsrrq varchar 30 1
0 f_now varchar 20 1
当我选择第一个表查询时没什么问题，第二个表就不能显示表里的字段了，帮忙。。。。。。。
fosygangguo 2004-08-05
sel2.asp-------------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body background="../../images/bg2.gif">
<div align="center"><em><font color="#125B6D" size="5"><u>查询</u></font></em>
<!-- 取来上页传来的字符串，如果passel1为1，则有Form取，并给session值，否则从session得值。 -->
<%if Session("passsel1")=1 then
str=request.Form("mutisel")
Session("mutisel1")=str
%>
<%else
str=Session("mutisel1")
end if%>
<% '这个表打开是为两个目的。第一次是指示用户。第二次是为了给显示表格的字段名汉化。
'set con=server.createobject("adodb.connection")
'cno= "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db1.mdb")
'con.open cno
set con = server.createobject("adodb.connection")
cno="driver={sql server};server=wgg;uid=sa;pwd=swgzs;database=ccdams"
con.open cno
'set rs=server.createobject("adodb.Recordset")
set chinars=server.createobject("adodb.Recordset")
chinars.ActiveConnection=con
chinars.CursorType=1
chinars.LockType=3
chinars.Source="表字段"
chinars.open
dim loca(10)
dim j
dim mystr(10)
j=1
for i=1 to len(str)%>
<%
m=mid(str,i,1)
if Asc(m)=044 then
loca(j)=i '这个数组中存有逗号的们置，j中存有实际上的逗号号数多一，j的值实际字符串数一样。
j=j+1
end if
next%>
</div>
<p align="center"> </p>
<%if j>1 then
for i=1 to j-1
if i=1 then
mystr(i)=mid(str,1,loca(i)-1)%>
<!-- '正确得到并显示 -->
<%else
m1=loca(i-1)+2
m2=loca(i)-loca(i-1)-2%>
<%mystr(i)=mid(str,m1,m2)%>
<%end if
next
mystr(i)=right(str,len(str)-loca(i-1)-1)%>
<!-- 因为i的值，要上面的循环中多加了一，故现在仍用i -->
<%else
i=1
mystr(1)=str
end if%>
<%Dim sel1(10),sel2(10),cxnr(10),sel3(10)'最多让用10 个
Dim x
x=1
for x=1 to 10
n=x
cstr(n)
sel2(x)="sel2"&n
cxnr(x)="cxnr"&n
sel3(x)="sel3"&n
%>
<%next'定义数组，便于操作%><!--'已证明构造字符数组成功% -->
<%
'dim colnum
colnum=Session("columnnum")-1
dim mychinastr(10)
selsource=session("mysourse")'接收上一页的表
if Session("passsel1")=1 then%><!-- 这是第一次走页面时才经过这一步 -->
<!-- 打开这个表是为第一次显示字段汉化。 -->
<% set conn1 = server.createobject("adodb.connection")
cnor1="driver={sql server};server=wgg;uid=sa;pwd=swgzs;database=ccdams"
conn1.open cnor1
'set rs=server.createobject("adodb.Recordset")
'conn1 = server.createobject("adodb.connection")
'cnor1="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db1.mdb")
'conn1.open cnor1
set chinars1=server.createobject("adodb.Recordset")
chinars1.ActiveConnection=conn1
chinars1.CursorType=1
chinars1.LockType=3
chinars1.Source=selsource
chinars1.open
dim y,l
y=1
for each obj in chinars1.fields
for l=1 to i
if obj.name=mystr(l) then
mychinastr(y)=chinars(colnum)
y=y+1
end if
next
chinars.movenext
next
end if%> <!-- 这是第一次走页面时才经过这一步 -->
<%x=1%>
<!-- i的值还原为1 -->
<% if Session("passsel1")=1 then%>
<form action="sel2.asp" method="post">
<%for n=1 to i%>
<!--成功 -->
<div align="center"><br>
<%=mychinastr(n)%>:
<select name=<%=sel2(n)%> size="1">
<option value="=">=</option>
<option value=">">></option>
<option value="<"><</option>
<option value=">=">>=</option>
</select>
<input type="text" name=<%=cxnr(n)%> >
<select name=<%=sel3(n)%> onchange="">
<option value="and" selected>并且</option>
<option value="or">或者</option>
</select></br>
<%next%>
</div>
<p align="center">
<input name="" type="submit" value="查 询">
<input name="" type="button" value="重新选择表" onClick="location.href='sel1.asp'">
</form>
</P>
</form>
<%end if%>
<%sqlstr="select * from "&selsource&" where "
sqlstr1=sqlstr%>
<!-- 当passsel1的值不为一时，才可以，走一段程序 -->
<%j=1%>
<%if Session("passsel1")<>1 then%>
<%for j=1 to i
aa=request.Form(cxnr(j))
aa="'"&aa&"'"
bb=mystr(j)
cc=request.Form(sel2(j))
dd=request.Form(sel3(j))
dd=" "&dd&" "
if j=i then
dd=""
end if
sqlstr=sqlstr&bb&cc&aa&dd
next%>
<%end if%>
<!-- <!-- <!-- <!-- <!-- <!-- -->
<%if sqlstr1<>sqlstr and Session("passsel1")<>1 then '如果是从上一页进入则不发过这一步
'set conn = server.createobject("adodb.connection")
'cnor="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db1.mdb")
'conn.open cnor
set conn = server.createobject("adodb.connection")
cnor="driver={sql server};server=wgg;uid=sa;pwd=swgzs;database=ccdams"
conn.open cnor
set rs=server.createobject("adodb.Recordset")
'set rs=server.createobject("adodb.Recordset")
rs.Open sqlstr,conn,1,3
if rs.recordcount=0 then%>
<div align="center">对不起！没有你要找的记录。
<%end if
colnum=Session("columnnum")-1%>
<div align="center">
<table align="center" cellpadding="1" cellspacing="1" bgcolor="#333333" border="0">
<tr>
<!-- 字段名显示，数据源为上页传来的rs,for的判断用它的字段数，而内部为“表字段”的某一列值。-->
<%for i=0 to rs.fields.count-1%>
<%'=obj.name%>
<td bgcolor="#cccccc"><%=chinars(colnum)%></td>
<!-- error!!!!!!!!! -->
<%chinars.movenext
next%>
</tr>
<!--输出内容-->
<%do until rs.eof%>
<tr>
<%for i=0 to rs.fields.count-1%>
<td bgcolor="#FFFFFF"><%=rs(i)%> </td>
<%next%>
</tr>
<%
rs.movenext
loop
%>
</table>
</div>
<div align="center">
<form action="" method="post">
<input name="Input" type="button" value="重 新 选 择 表" onClick="location.href='sel1.asp'">
</form>
</div>
<%end if
'关闭表字段表。
chinars.close
set chinars=nothing
con.close
set con=nothing%>
<!-- 只第一页是才有必要执行，故屏蔽 -->
<% if Session("passsel1")=1 then
chinars1.close
set chinars1=nothing
conn1.close
set conn1=nothing
end if
'当页走完时将passsel1变为0，这样第二次走这个页面时，某些不必要的语句就不必经过了。
Session("passsel1")=0%>
</div>
</body>
</html>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body background="../../images/bg2.gif">
<div align="center"><em><font color="#125B6D" size="5"><u>查询</u></font></em>
<!-- 取来上页传来的字符串，如果passel1为1，则有Form取，并给session值，否则从session得值。 -->
<%if Session("passsel1")=1 then
str=request.Form("mutisel")
Session("mutisel1")=str
%>
<%else
str=Session("mutisel1")
end if%>
<% '这个表打开是为两个目的。第一次是指示用户。第二次是为了给显示表格的字段名汉化。
'set con=server.createobject("adodb.connection")
'cno= "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db1.mdb")
'con.open cno
set con = server.createobject("adodb.connection")
cno="driver={sql server};server=wgg;uid=sa;pwd=swgzs;database=ccdams"
con.open cno
'set rs=server.createobject("adodb.Recordset")
set chinars=server.createobject("adodb.Recordset")
chinars.ActiveConnection=con
chinars.CursorType=1
chinars.LockType=3
chinars.Source="表字段"
chinars.open
dim loca(10)
dim j
dim mystr(10)
j=1
for i=1 to len(str)%>
<%
m=mid(str,i,1)
if Asc(m)=044 then
loca(j)=i '这个数组中存有逗号的们置，j中存有实际上的逗号号数多一，j的值实际字符串数一样。
j=j+1
end if
next%>
</div>
<p align="center"> </p>
<%if j>1 then
for i=1 to j-1
if i=1 then
mystr(i)=mid(str,1,loca(i)-1)%>
<!-- '正确得到并显示 -->
<%else
m1=loca(i-1)+2
m2=loca(i)-loca(i-1)-2%>
<%mystr(i)=mid(str,m1,m2)%>
<%end if
next
mystr(i)=right(str,len(str)-loca(i-1)-1)%>
<!-- 因为i的值，要上面的循环中多加了一，故现在仍用i -->
<%else
i=1
mystr(1)=str
end if%>
<%Dim sel1(10),sel2(10),cxnr(10),sel3(10)'最多让用10 个
Dim x
x=1
for x=1 to 10
n=x
cstr(n)
sel2(x)="sel2"&n
cxnr(x)="cxnr"&n
sel3(x)="sel3"&n
%>
<%next'定义数组，便于操作%><!--'已证明构造字符数组成功% -->
<%
'dim colnum
colnum=Session("columnnum")-1
dim mychinastr(10)
selsource=session("mysourse")'接收上一页的表
if Session("passsel1")=1 then%><!-- 这是第一次走页面时才经过这一步 -->
<!-- 打开这个表是为第一次显示字段汉化。 -->
<% set conn1 = server.createobject("adodb.connection")
cnor1="driver={sql server};server=wgg;uid=sa;pwd=swgzs;database=ccdams"
conn1.open cnor1
'set rs=server.createobject("adodb.Recordset")
'conn1 = server.createobject("adodb.connection")
'cnor1="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db1.mdb")
'conn1.open cnor1
set chinars1=server.createobject("adodb.Recordset")
chinars1.ActiveConnection=conn1
chinars1.CursorType=1
chinars1.LockType=3
chinars1.Source=selsource
chinars1.open
dim y,l
y=1
for each obj in chinars1.fields
for l=1 to i
if obj.name=mystr(l) then
mychinastr(y)=chinars(colnum)
y=y+1
end if
next
chinars.movenext
next
end if%> <!-- 这是第一次走页面时才经过这一步 -->
<%x=1%>
<!-- i的值还原为1 -->
<% if Session("passsel1")=1 then%>
<form action="sel2.asp" method="post">
<%for n=1 to i%>
<!--成功 -->
<div align="center"><br>
<%=mychinastr(n)%>:
<select name=<%=sel2(n)%> size="1">
<option value="=">=</option>
<option value=">">></option>
<option value="<"><</option>
<option value=">=">>=</option>
</select>
<input type="text" name=<%=cxnr(n)%> >
<select name=<%=sel3(n)%> onchange="">
<option value="and" selected>并且</option>
<option value="or">或者</option>
</select></br>
<%next%>
</div>
<p align="center">
<input name="" type="submit" value="查 询">
<input name="" type="button" value="重新选择表" onClick="location.href='sel1.asp'">
</form>
</P>
</form>
<%end if%>
<%sqlstr="select * from "&selsource&" where "
sqlstr1=sqlstr%>
<!-- 当passsel1的值不为一时，才可以，走一段程序 -->
<%j=1%>
<%if Session("passsel1")<>1 then%>
<%for j=1 to i
aa=request.Form(cxnr(j))
aa="'"&aa&"'"
bb=mystr(j)
cc=request.Form(sel2(j))
dd=request.Form(sel3(j))
dd=" "&dd&" "
if j=i then
dd=""
end if
sqlstr=sqlstr&bb&cc&aa&dd
next%>
<%end if%>
<!-- <!-- <!-- <!-- <!-- <!-- -->
<%if sqlstr1<>sqlstr and Session("passsel1")<>1 then '如果是从上一页进入则不发过这一步
'set conn = server.createobject("adodb.connection")
'cnor="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db1.mdb")
'conn.open cnor
set conn = server.createobject("adodb.connection")
cnor="driver={sql server};server=wgg;uid=sa;pwd=swgzs;database=ccdams"
conn.open cnor
set rs=server.createobject("adodb.Recordset")
'set rs=server.createobject("adodb.Recordset")
rs.Open sqlstr,conn,1,3
if rs.recordcount=0 then%>
<div align="center">对不起！没有你要找的记录。
<%end if
colnum=Session("columnnum")-1%>
<div align="center">
<table align="center" cellpadding="1" cellspacing="1" bgcolor="#333333" border="0">
<tr>
<!-- 字段名显示，数据源为上页传来的rs,for的判断用它的字段数，而内部为“表字段”的某一列值。-->
<%for i=0 to rs.fields.count-1%>
<%'=obj.name%>
<td bgcolor="#cccccc"><%=chinars(colnum)%></td>
<!-- error!!!!!!!!! -->
<%chinars.movenext
next%>
</tr>
<!--输出内容-->
<%do until rs.eof%>
<tr>
<%for i=0 to rs.fields.count-1%>
<td bgcolor="#FFFFFF"><%=rs(i)%> </td>
<%next%>
</tr>
<%
rs.movenext
loop
%>
</table>
</div>
<div align="center">
<form action="" method="post">
<input name="Input" type="button" value="重 新 选 择 表" onClick="location.href='sel1.asp'">
</form>
</div>
<%end if
'关闭表字段表。
chinars.close
set chinars=nothing
con.close
set con=nothing%>
<!-- 只第一页是才有必要执行，故屏蔽 -->
<% if Session("passsel1")=1 then
chinars1.close
set chinars1=nothing
conn1.close
set conn1=nothing
end if
'当页走完时将passsel1变为0，这样第二次走这个页面时，某些不必要的语句就不必经过了。
Session("passsel1")=0%>
</div>
</body>
</html>
解决问题的科学方法 解决问题的科学方法本人思考和总结的一些解决问题的方法和流程。欢迎补充和批评，以及添加一些材料。 一，明确定义，问题是什么出现了问题，往往忽略了这一步，没有仔细思考问题到底是什么，问题本质是什么。这有助...
谈谈程序员解决问题的能力 谈谈程序员解决问题的能力 解决问题的能力，程序员立业之本。 一般写文章我不会特意去写，而是有感而发的时候刚好又有时间我就会去写写文字。本想推些技术文章的，但写技术文章又很耗时，写得太浅显又没有技术含量...
求帮忙如何解决proteus闪退问题 最近用proteus仿真电路图，里面用到了单片机和显示屏，开始仿真调试时，过了大概3分钟左右，proteus自动退出...但又不知道怎么解决。寻求高人帮助，以上都是我个人猜测，有遇到过这种情况的给我出个主意！谢谢各位！
解决问题的个人总结 本文纯属自己总结的一些解决问题的逻辑思路，适合本人自己，因为每个人都思维定向不一样，也许你的解决问题的思路更加简洁方便。我在这里只想和分享一下我自己的一些思考问题的思路，最近在做IOS方向的开发，其实做...
浅论独立解决问题的能力的重要性 独立解决问题的能力是非常重要的，也是自学能力的生动体现。 从上小学到大学毕业之前的这段求学时光，主要是老师负责教，学生负责学，有疑问可以随时向老师请教，获得解答。大学毕业之后，就没有可以依赖的老师了，...
怎样成为解决问题的高手？——关于问题解决的关键4步骤 一个真正的高手，其实应该有能力用一套方法论去解决问题的所有，不管这个问题再难，再新鲜，再简单都能搞定。 什么是问题？一言以蔽之，问题来源于现实与目标的差距。 因此，问题产生的原因可能是： ...
永磁同步电机矢量控制（九）——三闭环位置控制系统 跟双闭环控制系统最大的区别就是，三闭环主要解决的是使得电机转到哪的问题，而双闭环主要解决的是转多快的问题。 2 三闭环系统的控制原理和搭建 具体的结合原理框图进行介绍，如上图所示。在基础的双闭环控制的...
win10电脑忘记开机密码的解锁方法 因为didi一直用指纹开笔记本，傻乎乎忘记辽开机密码和PIN，家湖救急帮didi解决了这个问题。写篇博客分享一下踩雷经验。 第一种方式 准备工具： 1、win10硬盘加密的请绕道，此方式不适用，谢谢。 2、下载并制作一...
(github附源码)毕设微信小程序二手书交易后台PHP微擎 为了实现我的扫码识别，特别去调用了豆瓣的接口，由于豆瓣把那个接口给堵住了，一直出现被禁止，最后找了很多方法有试过代理服务器，改过json包传输的格式，最后才解决这个问题。 大概讲下流程吧 1.前期准备 购买...
Google Drive下载大文件问题解决办法 近期一位笨蛋找我帮忙下载一个文件，在Google Driver里，我心想这有什么难的，然鹅，问题真的就莫名其妙出现了。总大小1.8G，chrome直接下载，下载速度5MB/s，预计5分钟，但是每次下载几百MB或1GB多的时候，网速就...
如何解决 MapReduce 数据倾斜的问题？ 本文隶属于专栏《1000个问题搞定大数据技术体系》，该专栏为笔者原创，引用请注明来源，不足和错误之处请在评论区帮忙指出，谢谢！ 本专栏目录结构和参考文献请见1000个问题搞定大数据技术体系 正文 什么是数据...
怎么去思考一个问题，提高解决问题的能力 怎么去思考一个问题，提高解决问题的能力 前言： #：本文转发自【半路歌雨】 #：http://blog.jboost.cn/think-like-a-programmer.html #：如有侵权，联系即删 技术人员的价值，不在于你能写出多么优美的代码，也不...
问题解决：Only SubQuery expressions that are top level conjuncts are allowed 文章目录问题场景问题环境问题原因解决方案结果总结PS 问题场景 在CDH的hue界面控制台上面，使用hive组件，执行较为复杂的SQL，SQL内含有in关键字，而in内部是关联其他表的结果。因为里面含有or字段，导致hive解析...
大数据常见问题与解决方法 1、用./bin/spark-shell启动spark时遇到异常：java.net.BindException: Can't ...解决方法：add export SPARK_LOCAL_IP="127.0.0.1" to spark-env.sh 2、java Kafka producer error:ERROR kafka.utils.Utils$ - fetc
前端和后端解决跨域问题 我这里遇到的问题是，后端无法帮忙，这个比简单的加个头要痛苦的多了 https://www.fujieace.com/html/cors.html 其实，解决这个办法有很多，我博客曾经也发表过“Access-Control-Allow-Origin 跨...
vue前端缓存问题解决方案 问题描述 大家用vue脚手架搭建前端工程时，常被缓存问题所困扰，具体的表现就是，当程序版本升级时，用户因为缓存访问的还是老的页面，然后很多同学很暴力的直接在index.html中加入了这几行代码： <meta ...
