<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="check.asp"-->
<!-- #INCLUDE file="../yuzhiguoeditor/fckeditor.asp" -->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>无标题文档</title>
<link href="pub/admin.css" rel="stylesheet" type="text/css" />
<style type="text/css">
<!--
.STYLE1 {font-weight: bold}
-->
</style>
</head>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from [yuzhiguo_about] "
rs.open sql,conn,1,1
%>
<body>
<%
dim action
action=trim(request("action"))
select  case action
        case "save"
	    call save()
	   	case else
	    call main()
		end select
		sub main()	   
		%>
<form action="?action=save" method="post" name="form" id="form"  onSubmit="return checksetup();">
  <table width="100%" border="0" cellpadding="4" cellspacing="1" bgcolor="#E4E4E4" class="a2">
    <tr>
      <td colspan="2" align="center" valign="middle" class="a1">我的资料</td>
    </tr>
    <tr>
      <td align="right" valign="middle" bgcolor="#F8FAFC"><span lang="zh-cn" xml:lang="zh-cn"><strong>名字</strong></span><strong>：</strong></td>
      <td width="606" bgcolor="#F8FAFC"><input name="name" type="text" class="STYLE1" value="<%=rs("name")%>" size="50" maxlength="50" /></td>
    </tr>
    <tr>
      <td align="right" valign="middle" bgcolor="#F8FAFC"><strong>网名：</strong></td>
      <td bgcolor="#F8FAFC"><input name="ename" type="text" value="<%=rs("ename")%>" size="50" maxlength="50" /></td>
    </tr>
    <tr>
      <td align="right" valign="middle" bgcolor="#F8FAFC"><strong>性别：</strong></td>
      <td bgcolor="#F8FAFC"><strong>
        <select name="sex">
          <%if rs("sex")="男" then%>
          <option value="男">男</option>
          <%else%>
          <option value="男" selected="selected">男</option>
          <%end if%>
          <%if rs("sex")="女" then%>
          <option value="女">女</option>
          <%else%>
          <option value="女">女</option>
          <%end if%>
        </select>
      </strong></td>
    </tr>
    <tr>
      <td align="right" valign="middle" bgcolor="#F8FAFC"><strong>OICQ</strong></td>
      <td bgcolor="#F8FAFC"><input name="qq" type="text" id="qq" value="<%=rs("qq")%>" size="50" maxlength="50" /></td>
    </tr>
    <tr>
      <td align="right" valign="middle" bgcolor="#F8FAFC"><strong>生日：</strong></td>
      <td bgcolor="#F8FAFC"><input name="sr" type="text" value="<%=rs("sr")%>" size="50" maxlength="50" /></td>
    </tr>
    <tr>
      <td align="right" valign="middle" bgcolor="#F8FAFC"><strong>生肖：</strong></td>
      <td bgcolor="#F8FAFC"><input name="sx" type="text"  value="<%=rs("sx")%>" size="50" maxlength="50" />      </td>
    </tr>
    <tr valign="top">
      <td align="right" valign="middle" bgcolor="#F8FAFC"><strong>籍贯：</strong></td>
      <td bgcolor="#F8FAFC"><input name="jg" type="text"  value="<%=rs("jg")%>" size="50" maxlength="50" /></td>
    </tr>
    <tr valign="top">
      <td align="right" valign="middle" bgcolor="#F8FAFC"><strong>邮箱：</strong></td>
      <td bgcolor="#F8FAFC"><input name="mail" type="text" value="<%=rs("mail")%>" size="50" maxlength="50" /></td>
    </tr>
    <tr valign="top">
      <td align="right" valign="middle" bgcolor="#F8FAFC"><strong>网站：</strong></td>
      <td bgcolor="#F8FAFC"><input name="web" type="text"  value="<%=rs("web")%>" size="50" maxlength="50" /></td>
    </tr>
    <tr valign="top">
      <td align="right" valign="middle" bgcolor="#F8FAFC"><strong>爱好：</strong></td>
      <td bgcolor="#F8FAFC"><input name="ah" type="text"  value="<%=rs("ah")%>" size="50" maxlength="50" /></td>
    </tr>
    <tr valign="top">
      <td align="right" valign="middle" bgcolor="#F8FAFC"><strong>照片：</strong></td>
      <td bgcolor="#F8FAFC"><input name="pt1" type="text" value="<%=rs("pt1")%>" size="50" maxlength="50" />
      (照片网址)</td>
    </tr>
    <tr valign="top">
      <td align="right" valign="middle" bgcolor="#F8FAFC"><strong>人气：</strong></td>
      <td bgcolor="#F8FAFC"><input name="renqi" type="text" value="<%=rs("renqi")%>" size="50" maxlength="50" /></td>
    </tr>
    <tr valign="top">
      <td align="right" valign="middle" bgcolor="#F8FAFC"><strong>签名：</strong></td>
      <td bgcolor="#F8FAFC"><strong>
        <textarea name="qm" cols="80" rows="3" id="textarea"><%=rs("qm")%></textarea>
      </strong></td>
    </tr>
    <tr>
      <td align="right" valign="middle" bgcolor="#F8FAFC"><span lang="zh-cn" xml:lang="zh-cn"><strong>简介</strong></span><strong><a>：</a></strong></td>
      <td bgcolor="#F8FAFC"><strong>
        <%
Dim sBasePath
sBasePath = Request.ServerVariables("PATH_INFO")
sBasePath = Left( sBasePath, InStrRev( sBasePath, "/_samples" ) )

Dim oFCKeditor
Set oFCKeditor = New FCKeditor
oFCKeditor.BasePath	= sBasePath
oFCKeditor.Value	= rs("text")
oFCKeditor.Create "text"
		%>
      </strong> </td>
    </tr>
    <tr align="center">
      <td bgcolor="#F8FAFC"><strong>　</strong></td>
      <td bgcolor="#F8FAFC"><div align="left"><strong>
        <input name="Submit" type="submit" id="Submit" value="修改"  />
        <input type="reset" name="Submit" value="重 填"   />
      </strong></div></td>
    </tr>
  </table>
</form>
<%
end sub
sub save()
set rs=server.CreateObject("adodb.recordset")
sql="select * from yuzhiguo_about"
rs.open sql,conn,1,3
rs("name")=request("name")
rs("ename")=request("ename")
rs("sex")=request("sex")
rs("qq")=request("qq")
rs("sr")=request("sr")
rs("sx")=request("sx")
rs("jg")=request("jg")
rs("web")=request("web")
rs("mail")=request("mail")
rs("ah")=request("ah")
rs("qm")=request("qm")
rs("text")=request("text")
rs("pt1")=request("pt1")
rs("renqi")=request("renqi")
rs.update
response.write"<script>alert('修改成功!');location.href='about.asp';</script>"
rs.close
set rs=nothing
end sub
%>
</body>
</html>