深圳创世纪机械怎么样:ASP高手进来一下

<select name="select">
<option value="先生" selected>先生
<option value="小姐">小姐</select></td>
<td width="65" rowspan="3"><select name="pic" id="pic" onchange=document.all.i1.src=this.value>
<option value=images/js01.gif>靓妹1</option>
<option value=images/js02.gif>靓妹2</option>
<option value=images/js03.gif>靓妹3</option>
<option value=images/js04.gif>靓妹4</option>
<option value=images/js05.gif>靓妹5</option>
<option value=images/js06.gif>靓妹6</option>
<option value=images/js07.gif>靓妹7</option>
<option value=images/js08.gif>靓仔1</option>
<option value=images/js09.gif>靓仔2</option>
<option value=images/js10.gif>靓仔3</option>
<option value=images/js11.gif>靓仔4</option>
<option value=images/js12.gif>靓仔5</option>
<option value=images/js13.gif>靓仔6</option>
<option value=images/js14.gif>靓仔7</option>
</select>

提交页面定义:
dim xb
dim pic
xb= Request("select")
pic=Request("pic")

rs("pic") =pic
rs("xingbie") = xb

在要显示的图片里
<img src="<%=rs("pic")%>"

<% SELECT case inlb
case "姓名"
gfsql="select * from dianhua where xm like '%"&invalue&"%' order by xm"
case "办公电话"
gfsql="select * from dianhua where bggddh like '%"&invalue&"%' order by xm"
case "移动电话"
gfsql="select * from dianhua where yddh like '%"&invalue&"%' order by xm"
case "单位名称"
gfsql="select * from dianhua where danwei like '%"&invalue&"%' order by xm"
case "部门名称"
gfsql="select * from dianhua where bm2 like '%"&invalue&"%' order by xm"
END SELECT
%>
select name=i_lb>
<option value="姓名">姓 名</option>
<option value="单位名称">单位名称</option>
<option value="部门名称">部门名称</option>
<option value="办公电话">办公电话</option>
<option value="移动电话">移动电话</option>

</select>
参照这些代码改改应该就能实现你要功能

<form name=inserttable method=post action=disp_inserttable.asp>
<select name=sex>
<option value="1">先生</option>
<option value=0>女士</option>
</select>
<input type=submit name=submit value="提交">
</form>
上面为inserttable.asp
<!--#include file="conn.asp"-->
<%
Dim req
req = Request("sex")
Dim inssql
inssql = "insert into tablename([sex]) values(" & req & ")"
conn.Execute inssql
%>

disp_inserttable.asp页
<!--#include file="conn.asp"-->
<%
Dim getsql,i
getsql = "Select * From tablename "
Set rs = Server.CreateObject("Oledb.REcordset")
if rs.state = 1 then rs.close
rs.open getsql,conn,1,1
if not(rs.eof and rs.bof) then
for i = 0 to rs.recordcount - 1
if rs("Sex") = 0 then
Response.write("<img src=2.gif width=100 height=100><br><center>女士</center><br>")
else
Response.write("<img src=1.gif width=100 height=100><br><center>先生</center><br>")
end if
rs.movenext
next
end if
%>

你可以用单选框来做，这样比较直观，看起来方面，而且你的图片也不用写复杂的程序来实现。直接方到对应的位置就行了。代码很简单，自己很容易写的。

这不是一两句能说清楚的。

用if判断，或是用select case语句