<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="qqconnect.asp"-->
<%Dim action,add_share
action=Trim(Request.QueryString("action"))
If action="add_share"Then
   title=server.HTMLEncode(Trim(Request.Form("title")))
   url=server.HTMLEncode(Trim(Request.Form("url")))
   comment=server.HTMLEncode(Trim(Request.Form("comment")))
   summary=server.HTMLEncode(Trim(Request.Form("summary")))
   images=server.HTMLEncode(Trim(Request.Form("images")))

SET qc = New QqConnet
    add_share=qc.Post_Share(title,url,comment,summary,images)
    If Instr(add_share,"ok")>0 Then
	   Response.Write("恭喜分享成功！")
	Else
	   Response.Write(add_share&"<br/>")
	   Response.Write("分享到QQ空间失败！查看是否授权！")
	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>
     <TITLE> 分享到空间 </TITLE>
     <META NAME="Generator" CONTENT="EditPlus">
     <META NAME="Author" CONTENT="">
     <META NAME="Keywords" CONTENT="">
     <META NAME="Description" CONTENT="">
  </HEAD>
  <BODY>
     <form action="?action=add_share" method="post">
        title
        <input value="测试分享空间" name="title" /> 标题<br>
        url<input value=" http://www.muyunet.com/qqconnect1/  " name="url" /> 分享所在网页资源的链接，点击后跳转至第三方网页<br>
        comment<input value="这个真不错。" name="comment" /> 用户评论内容，也叫发表分享时的分享理由<br>
        summary<input value="我的生活我的时尚，QQ：63572063" name="summary" /> 所分享的网页资源的摘要内容，或者是网页的概要描述<br>
        images<input value="http://imgcache.qq.com/QzonePortal_v2/city_v2/img/news_img/2011/0526/
portal_new_1306376959_00375.jpg" name="images" /> 所分享的网页资源的代表性图片链接<br><br>
        <input type="submit" value="分享" />
     </form>
  </BODY>
</HTML><b style="display:none">
