<%
Dim MM_conn_STRING
MM_conn_STRING = "driver=SQL Server;server=localhost; uid=***;pwd=***;database=database"
%>
<?xml version="1.0"?>
<!DOCTYPE html PUBLIC "-//WAPFORUM//DTD XHTML Mobile 1.0//EN" "http://www.wapforum.org/DTD/xhtml-mobile10.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>趣乐相册-上传照片</title></head>
<body>
<p>
<form action="upload.asp" method="post" enctype="multipart/form-data" name="myform" id="myform">
照片名称:<input name="strname" type="text" id="strname"/><br/>
照片类别:<select name="typeid" id="typeid">
<% set conn= Server.CreateObject("ADODB.connection")
conn.open MM_conn_STRING
sqltype="Select * From wap_photo_class"
set rstype=server.CreateObject("adodb.recordset")
rstype.open sqltype,conn,1,1
do while not rstype.eof
%> <option value="<%=trim(rstype("id"))%>"<%if trim(rstype("id"))=1 then%> selected<%end if%>><%=trim(rstype("class"))%></option>
<%
rstype.movenext
loop
%>
</select>
<br/>
选择图片(图片大小建议小于100KB):<br/><input name="strphoto" type="file" id="strPhoto"/><br/>
照片说明:<input name="info" type="text" id="info"/>
<br/>
<input type="submit" name="submit" value="提交"/>
</form>
<a href="manage.asp">返回我的相册</a><br/>
<a href="index.asp">返回相册首页</a><br/>
<a href="../index.asp">返回趣乐首页</a></p>
</body>
</html>
<%
rstype.close
set rstype=nothing
conn.close
set conn=nothing
%>
注意，<body>和</body>之间的标记不能有大写字母
文档一定得以utf-8编码保存
