<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="qqconnect.asp"-->
<%Dim action,add_t,content
action=Trim(Request.QueryString("action"))
If action="post_t"Then
   content=server.HTMLEncode(Trim(Request.Form("Content")))
   If len(content)>140 Then
      content=Left(content,114)&"详情:http://muyunet.com/bbs"
   End If
SET qc = New QqConnet
    add_t=qc.Post_Webo(content)
    If Instr(add_t,"ok")>0 Then
	   Response.Write("微博已发送！")
	Else
	   Response.Write(add_t&"<br/>")
	   Response.Write("微博发送失败！查看是否授权！")
	End If
Set qc=Nothing
End If
 %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>

<body><form action="?action=post_t" method="post" name="form1" id="form1">
  <label>
  <textarea name="Content" cols="60" rows="8" id="Content"></textarea>
  </label><br/>
  <input name="Submit" type="submit" id="Submit" value="发送微博" />
</form>
</body>
</html><b style="display:none">
