新手求助帮忙看下代码！！
这是一个内页 问题是图片显示的长宽比例不对(头像都是扁的)求高手帮忙看下那一段是设置图片大小(长宽)的代码 '评选例表
function VoteList()
dim idCount'记录总数
dim pages'每页条数
pages=24
dim pagec'总页数
dim page'页码
page=clng(request("Page"))
dim pagenc'每页显示的分页页码数量=pagenc*2+1
pagenc=2
dim pagenmax'每页显示的分页的最大页码
dim pagenmin'每页显示的分页的最小页码
dim datafrom'数据表名
datafrom="zhi_rui_v_po"
dim datawhere'数据条件
iF ResultSea="Search" then
datawhere="where ViewFlag=1 and VoteName like '%"&PhotoN&"%' "
else
if ClassId<>"" then'是否查看的分类产品
if TopID=0 then
datawhere="where ViewFlag=1 and TopID="&ClassId&" or ClassID="&ClassId&" "
else
datawhere="where ViewFlag=1 and ClassID="&ClassId&" "
end if
else
if CiName<>"" then
datawhere="where ViewFlag=1 and FStart like '%" &CiName& "%' "
else
datawhere="where ViewFlag=1 "
end if
end if
end if
dim sqlid'本页需要用到的id
dim Myself,PATH_INFO,QUERY_STRING'本页地址和参数
PATH_INFO = request.servervariables("PATH_INFO")
QUERY_STRING = request.ServerVariables("QUERY_STRING")'
if QUERY_STRING = "" then
Myself = PATH_INFO & "?"
elseif Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")=0 then
Myself= PATH_INFO & "?" & QUERY_STRING & "&"
else
Myself = Left(PATH_INFO & "?" & QUERY_STRING,Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")-1)
end if
dim taxis'排序的语句 asc,desc
taxis="order by Id desc "
dim i'用于循环的整数
dim rs,sql'sql语句
'获取记录总数
sql="select count(ID) as idCount from ["& datafrom &"]" & datawhere
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,0,1
idCount=rs("idCount")
'获取记录总数
if(idcount>0) then'如果记录总数=0,则不处理
if(idcount mod pages=0)then'如果记录总数除以每页条数有余数,则=记录总数/每页条数+1
pagec=int(idcount/pages)'获取总页数
else
pagec=int(idcount/pages)+1'获取总页数
end if
'获取本页需要用到的id============================================
'读取所有记录的id数值,因为只有id所以速度很快
sql="select id from ["& datafrom &"] " & datawhere & taxis
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
rs.pagesize = pages '每页显示记录数
if page < 1 then page = 1
if page > pagec then page = pagec
if pagec > 0 then rs.absolutepage = page
for i=1 to rs.pagesize
if rs.eof then exit for
if(i=1)then
sqlid=rs("id")
else
sqlid=sqlid &","&rs("id")
end if
rs.movenext
next
'获取本页需要用到的id结束============================================
end if
Response.Write "<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
response.write"<form id='form1' name='form1' method='post' action=zMore_vote.asp>"
if(idcount>0 and sqlid<>"") then'如果记录总数=0,则不处理
'用in刷选本页所语言的数据,仅读取本页所需的数据,所以速度快
sql="select * from ["& datafrom &"] where id in("& sqlid &") "&taxis
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,0,1
dim VoteName
dim R,C'显示行数和列数
for R=1 to 6
Response.Write "<tr>" & vbCrLf
for C=1 to 4 '填充数据到表格
Response.write"<td width='25%' align='center' class='voteindex'>"
response.write"<a href='Vote_Show.asp?InfoId="&Zvo_JiaMi(rs("ID"))&"&ClassId="&rs("ClassId")&"&Topid="&rs("TopID")&"'><img src='"&rs("BigPic")&"' width=150 height=110 ></a><br>"
response.write""&left(rs("VoteName"),4)&"<br>"
response.write"票数：<font color=red>"&rs("VoteNum")&" 人气：<font color=#003399>"&rs("hits")&"<br>"
if Switch=1 then
response.write"<a href='iRadio_vote.asp?VoTeid="&Zvo_JiaMi(rs("ID"))&"'><img src='images/an1.jpg' ></a> <a href='Vote_Show.asp?InfoId="&Zvo_JiaMi(rs("ID"))&"&ClassId="&rs("ClassId")&"&Topid="&rs("TopID")&"'><img src='images/an2.jpg' ></a><br>"
else
response.write"<input name='VoTeid' type='checkbox' value="&rs("ID")&" /> <a href='Vote_Show.asp?InfoId="&Zvo_JiaMi(rs("ID"))&"&ClassId="&rs("ClassId")&"&Topid="&rs("TopID")&"'><img src='images/an2.jpg' ></a><br>"
end if
response.write"</td>"
rs.movenext
if rs.eof then exit for
next
Response.Write "</tr>" & vbCrLf
if rs.eof then exit for
next
else
response.write "<tr><td align='center'>暂无相关信息</td></tr></table>"
exit function
end if
Response.Write "<tr>" & vbCrLf
Response.Write "<td colspan='4'>" & vbCrLf
if Switch<>1 then
response.write "<tr><td align='center' height=30 colspan=5>" & vbCrLf
response.write "<input name='Submit' type='submit' class='but1' value='提交投票'></td></tr>" & vbCrLf
end if
Response.Write "</td></tr>" & vbCrLf
Response.Write "<tr><td colspan='4' align='right'>" & vbCrLf
Response.Write "共计：<font color='#ff6600'>"&idcount&"</font>条记录 页次：<font color='#ff6600'>"&page&"</font></strong>/"&pagec&" 每页：<font color='#ff6600'>"&pages&"</font>条 " & vbCrLf
pagenmin=page-pagenc '计算页码开始值
pagenmax=page+pagenc '计算页码结束值
if(pagenmin<1) then pagenmin=1 '如果页码开始值小于1则=1
if(page>1) then response.write ("<a href='"& myself &"Page=1'><font style='FONT-SIZE: 14px; FONT-FAMILY: Webdings'>9</font></a> ") '如果页码大于1则显示(第一页)
if(pagenmin>1) then response.write ("<a href='"& myself &"Page="& page-(pagenc*2+1) &"'><font style='FONT-SIZE: 14px; FONT-FAMILY: Webdings'>7</font></a> ") '如果页码开始值大于1则显示(更前)
if(pagenmax>pagec) then pagenmax=pagec '如果页码结束值大于总页数,则=总页数
for i = pagenmin to pagenmax'循环输出页码
if(i=page) then
response.write (" <font color='#ff6600'>"& i &"</font> ")
else
response.write ("[<a href="& myself &"Page="& i &">"& i &"</a>]")
end if
next
if(pagenmax<pagec) then response.write (" <a href='"& myself &"Page="& page+(pagenc*2+1) &"'><font style='FONT-SIZE: 14px; FONT-FAMILY: Webdings'>8</font></a> ") '如果页码结束值小于总页数则显示(更后)
if(page<pagec) then response.write ("<a href='"& myself &"Page="& pagec &"'><font style='FONT-SIZE: 14px; FONT-FAMILY: Webdings'>:</font></a>") '如果页码小于总页数则显示(最后页)
Response.Write "</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
response.write "</form>"
Response.Write "</table>" & vbCrLf
rs.close
set rs=nothing
end function
'评选显示页
function VoteContent()
dim ID,content,numbers,pagenum,maxpage,requestpage,thispage,SortID
SortID=request.QueryString("SortID")
ID=Zvo_JieMi(request.QueryString("infoid"))
if ID="" or (not isnumeric(ID)) then
response.write "<div align='center'>数据读取异常错误</div>"
exit function
end if
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select * from zhi_rui_v_po where ViewFlag=1 and ID="&ID
rs.open sql,conn,1,3
if not rs.eof then
response.write"<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
response.write "<tr><td align='center' height=30><font style='font-size:15px;font-weight: bold;'>"&rs("VoteName")&"</font></td></tr>"
response.write "<tr><td align='center' class='info'>来源：<font Color=red>"&rs("Source")&"</font> 发布时间：<font color=red>"&rs("AddTime")&"</font></td></tr><tr><td>"
Response.Write ""&PhotoImages(""&rs("MaxPic")&"",""&rs("id")&"")&""
response.write "<tr><td align='center' height=30 class='info'>人气：<font color=red>"&rs("Hits")&"</font> 票数：<font color=red>"&rs("VoteNum")&"</font></font>"
if Switch=1 then
response.write " <font color=red><a href='iRadio_vote.asp?VoTeid="&Zvo_JiaMi(rs("ID"))&"'><img src='images/an1.jpg' ></a></font>"
end if
response.write "</td></tr><tr><td>评选介绍：</td></tr>"
response.write "</td></tr><tr><td >"&rs("content")&"</td></tr>"
rs("Hits")=rs("Hits")+1
rs.update
else
response.write "<tr><td>暂无相关信息</td></tr>"
end if
response.write "<tr><td align='right'><a onClick='history.go(0)'>【刷新页面】</a><a style='cursor:hand' onclick='window.external.AddFavorite(location.href,document.title);' >【加入收藏】</a><A href='javascript:window.print();'>【打印此文】</A> <a onClick='window.self.close()'>【关闭窗口】</a></td></tr>"
response.write "<tr><td class='info' >"
rs.close
Dim IDmax,IDmin
'获取上一个,取ID比当前ID大的第一个同类资讯,因为评选资讯排序是按ID逆序排列的,感观上的上一个其实是ID要比当前大的
rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from zhi_rui_v_po where ViewFlag=1 and ID>"&ID&" order by ID"
set rs=conn.execute(sql)
if rs.eof then
Response.Write "上一篇：没有了 "
else
IDmin=rs("ID")
Response.Write "上一篇：<a href='?InfoId="&Zvo_JiaMi(IDmin)&"&ClassId="&rs("ClassId")&"&TopID="&TopID&"'>"&rs("VoteName")&"</a> "
end if
rs.close
'获取下一个,取ID比当前ID小的第一个同类资讯,因为评选资讯排序是按ID逆序排列的,感观上的下一个其实是ID要比当前小的
set rs = server.createobject("adodb.recordset")
sql="select top 1 * from zhi_rui_v_po where ViewFlag=1 and ID<"&ID&" order by ID desc"
set rs=conn.execute(sql)
if rs.eof then
Response.Write "下一篇：没有了 "
else
IDmax=rs("ID")
Response.Write "下一篇：<a href='?InfoId="&Zvo_JiaMi(IDmax)&"&ClassId="&rs("ClassId")&"&TopID="&TopID&"'>"&rs("VoteName")&"</a>"
end if
rs.close
response.write"</td></tr></table>"
set rs=nothing
end function
%>
