Question

ASP把值调用到下拉菜单并提交到数据库？

我想用IP地理查询程序获取到的值
在其他ASP页面的下拉菜单中使用，并可以提交到数据库
怎么写

这是我IP查询程序代码
<%
IPP=Request.ServerVariables("REMOTE_ADDR")
theipp=clngip(ipp)
Data_path="mip.asp"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(Data_Path)
Set Conn=Server.CreateObject("Adodb.Connection")
Conn.Open ConnStr
sql="select * from ip where starip<"&theipp&" and endip>"&theipp&""
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof or rs.bof then
addr="没有找到"
else
addr=rs("country")
end if
rs.close
conn.close
'========================================================
'将IP地址转换为长整型
Function CLngIP(ByVal asNewIP)
Dim lnResults
Dim lnIndex
Dim lnIpAry
lnIpAry = Split(asNewIP, ".", 4)'//限定数组为4个元素
For lnIndex = 0 To 3
If Not lnIndex = 3 Then
lnIpAry(lnIndex) = lnIpAry(lnIndex) * (256 ^ (3 - lnIndex))

End If
lnResults = lnResults + lnIpAry(lnIndex)

Next
CLngIP = lnResults
End Function
%>

var addr
addr="<%=addr%>";
document.write (addr);
怎么改
才能调用到
<select name=txtcome size=1>
<option selected value=<%=addr%>>默认
<option value=北京>北京 </option>
</select>

Answer 1

用include包含一个xxx.asp 里面的内容放
你用程序读出来的列表
<select name=txtcome size=1>
<option selected value=<%=addr%>>默认
<option value=北京>北京 </option>
</select>
调用只能是这样调用。。

Answer 2

这是我写的，不明白你的意思是什么？是提交排顺还是读取
Response.Write("<td colspan=""2"" align=""left"">加工单位:")
set rst=conn.execute("select * from dw")
Response.Write("<select name=""dw"" id=""dw"">")
do while not(rst.bof or rst.eof)
response.Write("<option value="&rst("dw_dw")&">"&rst("dw_dw")&"</option>")
rst.movenext
loop
rst.close
set rst=nothing
Response.Write("</select></td>")