查询信息：
<%
sql="select * from jxgsm where SiteNum like {fn concat('%',{fn concat('"& Request("site_num") &"','%')})} order by SiteNum"
dim rootRs
set rootRs=Server.CreateObject("ADODB.RecordSet")
rootRs.Open sql,conn,1,1
if rootRs.Bof or rootRs.Eof then
response.write "数据库中找不到您要搜索的数据"
else
%>

添加信息：
<%
B1=Request("B1")
if B1="填完请添加" then
date1=Cstr(date)+"-"+Cstr(time)
sql="select {fn max(id)} from 交换基本信息"
set rs=conn.execute(sql)
id=rs(0)+1
rs.close
set rs=nothing
sql1="insert into 交换基本信息 values ('"& id &"','"& Request("端局名称") &"','"& Request("下挂BSC") &"','"& Request("版本") &"','"& Request("容量") &"','"& date1 &"',0) "
response.write sql1
set rs1=conn.execute(sql1)
Response.Redirect "jx_msc_add_ensure.asp?id="& id &" "
rs1.close
set rs1=nothing
end if
conn.close
set conn=nothing
%>
具体的意思及作用，谢谢！