📄 image.asp
字号:
<%Option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/String.asp" -->
<%
dim imgvalue
imgvalue=Request.Form("text1")
set Objdb=server.CreateObject ("adodb.connection")
OpenDB Objdb
if imgvalue="" then
%>
<HTML>
<HEAD><TITLE>显示头像</TITLE>
<SCRIPT LANGUAGE="javascript">
<!--
function setimg(imgid,img,f){
var thisform = document.forms[0];
img.src="../../Images/OA/MSN/online_image/"+imgid;
f.imgno.value=imgid;
f.submit();
this.close()
}
-->
</SCRIPT>
</HEAD>
<BODY ><!--onunload=saveimage()-->
<form id=form1 name=form1 action="#" method=post><INPUT id=imgno name=text1 type="hidden" value="1" ></form>
<table>
<%
dim thing,MyFileObject,MyFolder
dim i
dim Objdb,mysql,rs,Objrs,listsql
i=0
dim imgid
%>
<tr>
<%
listsql="select image from t_OA_MSN_IMAGE"
set Objrs=server.CreateObject ("adodb.recordset")
set Objrs=Objdb.execute(listsql)
while not Objrs.EOF
i=i+1
imgid=Objrs("image")%>
<td border=1 style="cursor=hand"><img src="../../images/oa/msn/online_image/<%=Objrs("image")%>" width=30px height=30px
onclick=setimg("<%=imgid%>",opener.myimage,form1)></td>
<%if i mod 5=0 then
Response.Write"</tr><tr>"
end if
Objrs.MoveNext
Wend
Objrs.Close
%>
</tr>
</table>
</BODY>
</HTML>
<%
else
mysql="update t_OA_MSN_ACCOUNT set imageid=(select imageid from t_OA_MSN_IMAGE where image='"&imgvalue&"') where AccountID="&Session("AccountID")
Objdb.Execute mysql
end if
Objdb.Close %>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -