<%
set conn=opendb("oabusy","conn","accessdsn")
set rs=server.createobject("adodb.recordset")
sql="select name,username from userinf where userdept=" & sqlstr(firstdept) & " and forbid='no'"
rs.open sql,conn,1
if not rs.eof and not rs.bof then username=rs("username")
if request("username")<>"" then username=request("username")
while not rs.eof and not rs.bof
%>
<option value="<%=rs("username")%>" selected<%=selected(username,rs("username"))%>><%=keepformat(rs("name"))%></option>
<%
rs.movenext
wend
%>
</select>
<td width="48" background="tu/list_top.jpg">
<input type="submit" name="submit" value="查询" class="inputb"></td>
</form>
<td width="10" background="tu/list_top.jpg"><td>
<form name="form4" action="editallpersoninf.asp" method="post">
<%if cook_allow_edit_all_personinf="yes" then%>
<input type="hidden" name="userdept" value="<%=firstdept%>">
<input type="hidden" name="username" value="<%=username%>">
<input type="submit" name="submit" value="编辑" class="inputb">
<%end if%>
<td width="282" background="tu/list_top.jpg"></td>
</form>
</tr>
</table>
</center>
<%
'读出姓名、部门、职位
set conn=opendb("oabusy","conn","accessdsn")
set rs=server.createobject("adodb.recordset")
sql="select name,userdept,userlevel from userinf where username=" & sqlstr(username)
rs.open sql,conn,1
name=rs("name")
userdept=rs("userdept")
userlevel=rs("userlevel")
'打开数据库，读出个人档案
set conn=opendb("oabusy","conn","accessdsn")
set rs=server.createobject("adodb.recordset")
sql="select * from personinf where username=" & sqlstr(username)
rs.open sql,conn,1
dim a(86)
if not rs.eof and not rs.bof then
for i=1 to 86
a(i)=rs("a" & i)
next
inputdate=rs("inputdate")
updatedate=rs("updatedate")
havephoto=rs("havephoto")
id=rs("id")
else
for i=1 to 86
a(i)=""
next
inputdate=""
updatedate=""
havephoto="no"
end if
%>
如果我想会个链接<a href="a.asp?username=格式不会写">？想获取username的值格式怎么写呀？
？
