英文商务邀请函范文:在asp编程中，如何使用同一变量来打开不同的表？

调用可以这样做 dispTable request.querystring("table")
function getFields(sql)
dim rs,i,fld,tmp
set rs = server.createObject("ADODB.recordset")
set fld = server.createObject("scripting.dictionary")
rs.open sql,conn,3,1
if rs.eof and rs.bof then
set getFields=nothing
exit function
end if
for i=0 to rs.fields.count-1 step 1
tmp = rs.fields(i).name
fld.add tmp,i
next
set getFields = fld
end function
sub dispTable(sql)
dim rs,fld,i
set rs = server.createObject("ADODB.recordset")
set fld = server.createObject("scripting.dictionary")
on error resume next
rs.open sql,conn,3,1
if err.number<>0 then
err.clear
response.write "无效的SQL语句或表名！"
exit sub
end if
response.write "<table width=100% cellspacing=1 cellpadding=1 bgcolor=#cccccc>" & VBCRLF
if rs.eof and rs.bof then
response.write "<tr bgcolor=#FFFFFF>No Records!<td></tr></table>"
exit sub
end if
set fld = getFields(sql)

response.write "<tr bgcolor=#FFFFFF>" & VBCRLF
for each i in fld.keys
response.write "<td>"&i&"</td>" & VBCRLF
next
response.write "</tr>" & VBCRLF
while not rs.eof
response.write "<tr bgcolor=#FFFFFF>" & VBCRLF
for each i in fld.keys
response.write "<td>" & rs(i) & "</td>" & VBCRLF
next
rs.movenext
response.write "</tr>"
wend
response.write "</table>"
end sub

我就用vbscript写吧，javascript类似。数据库链接语句省略。
<%
Set tabName=Request("tabName") '表单提交，获取表名。
select * from "&tabName
'下面是表头
Response.Write ("<strong><font color=#FF0000>")
Response.Write ("表名：")
Response.Write (tabName)
Response.Write ("</font></strong>")
Response.Write ("<br/>")
Response.Write ("<br/>")
Response.Write ("<br/>")
Response.Write ("<table border=1 bordercolor=#E0E0DE>")
Response.Write ("<tr>")
'表第一列
For k=0 to rs.fields.count-1
Response.Write ("<td>"&"<div align=center><strong><font color=#0000FF>"&rs(k).Name&"</font></strong></div>"&"</td>" )
Next
Response.Write ("</tr>" )
'输出表内容
if not rs.eof then
Response.Write ("<tr>" )
'Response.Write ("<td><div align=center><font color=#FF00CC>"&No&"</font></td>" )
for z=0 to rs.fields.count-1
'主要是使表中记录为空时，也显示表格
Response.Write ("<td><div align=center>"&rs(z)&" </div>"&"</td>" )
next
Response.Write ("</tr>" )
rs.movenext
else
exit for
end if
Response.Write ("</table>")
%>

写个函数吧
你传参数过来就是了啊